SetLayeredWindowAttributes

Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

hWnd是透明窗体的句柄，

crKey为掩码的颜色，可以用RGB(r,g,b)来指定。

bAlpha是不透明度，取值范围是（0,255），其中0代表全透明，255代表不透明。

dwFlags是透明方式，可以取两个值：

当取值为LWA_ALPHA时，crKey参数无效，bAlpha参数有效；

当取值为LWA_COLORKEY时，窗体中的所有颜色为crKey的地方将变为透明，bAlpha参数无效。

LWA_ALPHA = 0x2

LWA_COLORKEY=0x1

也可以取两个值的组合：LWA_ALPHA Or LWA_COLORKEY。这样crKey的地方将变为全透明，而其它地方根据bAlpha参数确定透明度。

要使使窗体拥有透明效果,首先要有WS_EX_LAYERED扩展属性，方法：

先声明GetWindowLong和SetWindowLong

Dim rtn As Long

rtn = GetWindowLong(Me.hWnd, -20)

rtn = rtn Or WS_EX_LAYERED

SetWindowLong Me.hWnd, -20, rtn

(旧的sdk没有定义WS_EX_LAYERED,所以可以直接指定为&H80000).

WS_EX_LAYERED = &H80000