Problem with AnimateWindow()

[iflash]

Hi,

I tried the following code to try to 'disolve' a form window but when i press the button, nothing happens. Know why?

Pls tell me , many many thanx~!

Option Explicit
 
Private Declare Function AnimateWindow Lib "user32" ( _
           ByVal hwnd As Long, _
           ByVal dwTime As Long, _
           ByVal dwFlags As Long _
) As Boolean
 
Const AW_BLEND = &H80000 'Uses a fade effect. This flag can be used only if hwnd is a top-level window.
Const AW_SLIDE = &H40000
 
Private Sub Command1_Click()
Me.AutoRedraw = True
 
Dim RetVal
AnimateWindow Me.hwnd, 4000, AW_BLEND
 
End Sub