Private Declare Function SetClassLong Lib "user32.dll" Alias "SetClassLongA" ( _
    ByVal hWnd As Long, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long
 
Private Declare Function GetClassLong Lib "user32.dll" Alias "GetClassLongA" ( _
    ByVal hWnd As Long, _
    ByVal nIndex As Long ) As Long
 
Private Const GCL_STYLE As Long = (-26&)
 
Private Const CS_DROPSHADOW As Long = &H20000
 
Private Sub Form_Load()
    Call SetClassLong( _
        Me.hWnd, _
        GCL_STYLE, _
        GetClassLong(Me.hWnd, GCL_STYLE) Or CS_DROPSHADOW )
End Sub

Gru?
Tyson