关于窗体透明，只显示控件 。。。 。。。

Question

'Me.BorderStyle = 0
Private Sub Form_Load()    Dim point(0 To 3) As POINTAPI
    Dim a As Long, b As Long
    Me.ScaleMode = 3
    point(0).x = Command1.Left
    point(1).x = Command1.Left + Command1.Width
    point(2).x = Command1.Left + Command1.Width
    point(3).x = Command1.Left
    point(0).y = Command1.Top
    point(1).y = Command1.Top
    point(2).y = Command1.Top + Command1.Height
    point(3).y = Command1.Top + Command1.Height
    a = CreatePolygonRgn(point(0), 4, 2)
    b = SetWindowRgn(Me.hWnd, a, True)
End Sub

Answer 1

http://www.dapha.net/vb/down.asp?id=117