Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal _
  dwTime As Long, ByVal dwFlags As Long) As Boolean
 
' Flags!
Const AW_HOR_POSITIVE = &H1 
Const AW_HOR_NEGATIVE = &H2 
Const AW_VER_POSITIVE = &H4 
Const AW_VER_NEGATIVE = &H8 
Const AW_CENTER = &H10 
Const AW_HIDE = &H10000 
Const AW_ACTIVATE = &H20000 
Const AW_SLIDE = &H40000 
Const AW_BLEND = &H80000