Snippet Library

'make a form transparent
     'put this code in a bas module

     Option Explicit

     Public Const GWL_EXSTYLE = (-20)
     Public Const WS_EX_TRANSPARENT = &H20&
     Public Const SWP_FRAMECHANGED = &H20
     Public Const SWP_NOMOVE = &H2
     Public Const SWP_NOSIZE = &H1
     Public Const SWP_SHOWME = SWP_FRAMECHANGED Or _
     SWP_NOMOVE Or SWP_NOSIZE
     Public Const HWND_NOTOPMOST = -2

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

     Declare Function SetWindowPos Lib "user32" _
     (ByVal hwnd As Long, ByVal hWndInsertAfter _
     As Long, ByVal x As Long, ByVal y As Long, _
     ByVal cx As Long, ByVal cy As Long, _
     ByVal wFlags As Long) As Long

     '    <<<<    Form Code    >>>>

     Option Explicit

     'you must set the Form's  [ShowInTaskbar to false]
     'you must set the Form's  [BorderStyle to none]
     '

Private Sub Command1_Click()
        SetWindowLong Me.hwnd, GWL_EXSTYLE, _
        WS_EX_TRANSPARENT
        SetWindowPos Me.hwnd, HWND_NOTOPMOST, _
        0&, 0&, 0&, 0&, SWP_SHOWME
     End Sub;