Some problem with AnimateWindow API

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~!

VB Code:

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

You should only post that in the API forum and not in all vbforum you see...

sorry but i see that my problem fits all categories

AnimateWindow questions are NOT either graphics or game programming questions. This is purly an API question, post there, or in General.

AnimateWindow requires NT 5.0, or Windows 98. If you are not running either OS, or higher, it wont work.

Z.