使窗口透明，为什么执行不了
Dim rtn As Long
rtn = GetWindowLong(hWnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes Me.hWnd, vbWhite, Val(sAlpha), LWA_ALPHA

这一句，执行有错，为什么。
注：有些机上可以正确执行，有些机子上不能执行，同样是xp，在vista下也执行不了


[解决办法]
SetLayeredWindowAttributes Me.hWnd, vbWhite, Val(sAlpha), LWA_ALPHA

代码木有问题，但是Val(sAlpha)这个参数不清楚你设置成多少了

木得XP，晚上回家在vista下测下去。。。

先mark 上面的全部无视。。。