使窗口透明，为什么执行不了,该如何处理

使窗口透明，为什么执行不了
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 上面的全部无视。。。