vb 透明 控件

窗体全透明。但是里面的控件不跟着透明。比如label，能正常显示出字来@@@给代码，，谢谢
三楼的想法不错，但是我要的是右键点击到窗体上显示的是桌面的右键菜单，就是说能看字体而实际是不存在的。像桌面提示的那样。。

Option Explicit

Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Click()
Text1.Text = "你好！"
End Sub

Private Sub Form_Load()
Dim hBitmap
Me.AutoRedraw = True
'Me.BorderStyle = 0
Command1.Caption = "退出"
hBitmap = CreateCompatibleBitmap(Me.hdc, 0, 0)
SelectObject Me.hdc, hBitmap
Me.Refresh
End Sub