VB 使 窗 口 透 明

为 了 便 于 观 察 ， 先 在 窗 口 上 添 加 两 个 按 钮 ， Command1和 Command2。 加 上 如 下 代 码 ： 
Private Sub Command1_Click()Sub Command1_Click() 
Print "Hello" 
End Sub 

Private Sub Command2_Click()Sub Command2_Click() 
End 
End Sub 
这 两 个 按 钮 一 个 用 于 终 止 程 序 运 行 ， 一 个 用 于 显 示 文 字 。 
然 后 ， 将 Form的 Border设 为 None。 
最 后 ， 在 Form的 声 明 部 分 加 上 以 下 代 码 ： 
Private Declare Function SetWindowLong()Function SetWindowLong Lib "user32" Alias _ 
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _ 
ByVal dwNewLong As Long) As Long 
Private Declare Function SetParent()Function SetParent Lib "user32" (ByVal hWndChild _ 
As Long, ByVal hWndNewParent As Long) As Long 
Const WS_EX_TRANSPARENT = &H20& 
Const GWL_EXSTYLE = (-20) 
最 后 ， 在 Form中 加 上 如 下 代 码 。 
Private Sub Form_Load()Sub Form_Load() 
SetWindowLong hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT 
End Sub