Option Explicit

 

Private Const CS_DROPSHADOW As Long = &H20000

Private Const GCL_STYLE As Long = -26

 

Private Declare Function SetClassLongA Lib "user32.dll" (ByVal hWnd As Long, ByVal nVal As Long, ByVal dwValue As Long) As Long

Private Declare Function GetClassLongA Lib "user32.dll" (ByVal hWnd As Long, ByVal nVal As Long) As Long

 

Private Sub AddShadowToForm(ByVal hWnd As Long)

    Call SetClassLongA(hWnd, GCL_STYLE, GetClassLongA(hWnd, GCL_STYLE) Or CS_DROPSHADOW)

End Sub

 

Private Sub Form_Load()

    Call AddShadowToForm(Me.hWnd)

End Sub