怎样使VB窗口透明而控件不透明

Question

我希望程序的窗口中除控件外其他部分都透明，请问这个怎样实现啊？
我试过用SetLayeredWindowAttributes 这个API函数使窗口透明，但是控件都看不见了。 
或者我在窗口中用API函数画了个图，怎样使图画以外的部分都透明啊，即只显示图画部分。
知道的朋友帮帮忙，谢了。

Answer 1

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, ByVal 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 Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1
Private Sub Form_Load()
    Me.BackColor = vbBlue
    Dim rtn As Long
    rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
    rtn = rtn Or WS_EX_LAYERED
    SetWindowLong hwnd, GWL_EXSTYLE, rtn
    SetLayeredWindowAttributes hwnd, vbBlue, 0, LWA_COLORKEY
End Sub

Answer 2

谢谢了  
刚试了下  好像可以  
是不是SetLayeredWindowAttributes的第二个参数就是使和窗口的背景色相同的颜色变为透明
谢谢了。