private declare function getwindowlong lib "user32" alias "GetWindowLongA" (byval hwnd as long,byval nindex as long) as long
private declare function setwindowlong lib "user32" alias "SetWindowLongA" (byval hwnd as long,nindex as long,byval dwnewlong as long) as long
private declare function SetLayeredWindowAttributes lib "user32" (byval hwnd as long,byval crkey as long,byval balpha as byte,byval dwflags as long) as long
private sub form_load()
me.borderstyle = 0
me.caption = ""
me.backcolor = vbred
getwindowlong me.hwnd,-20,setwindowlong(me.hwnd,-20) or &h80000
setlayeredwindowattributes me.hwnd,vbred,0,1
end sub
拿你这个水贴来练手，纯手工打的代码，其实就是死记硬背。也不知道备的对不对，唉。。这么久了，也背不了多少API，希望熟能生巧，以后碰到类似的api，知道去理解或者说会感到：“咦，这个api以及参数也可以这样用？”
啊哈哈。。。笨人笨法。。。没有VB测试，希望没有错