这是一个相对简单的VB制作透明 窗体的方法，看上去这个窗体无边框、无标题栏，也没有最小最大化及关闭按钮，完全显示了一个图片的效果，其实本代码是一个透明窗体的实现实例，特此为大家分享代码如下：
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, _
ByVal nWidth As Long, ByVal nHeight As Long) As Long 'API函数声明
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, _
ByVal hObject As Long) As Long'API函数声明
Private Sub Form_Load()
Dim B'声明变量
Me.AutoRedraw = True
B = CreateCompatibleBitmap(Me.hdc, 0, 0)
SelectObject Me.hdc, B'设置窗体透明
End Sub
Private Sub Image1_Click()
End '退出
End Sub
Private Sub Timer1_Timer() '计时器事件
Dim B '声明变量
Me.AutoRedraw = True
B = CreateCompatibleBitmap(Me.hdc, 0, 0)
SelectObject Me.hdc, B'保持窗体透明
End Sub
