Fenčtre transparente

 

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Const WS_EX_TRANSPARENT = &H20&
Const GWL_EXSTYLE = (-20)


Private Sub Form_Load()
  Dim Ret As Long
   Ret = SetWindowLong(Form1.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)
End Sub