I found a new API named AnimateWindow.
You can declare it like that:

Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Long

And codes here:


Private Sub Form_Load()
AnimateWindow hwnd, 200, 16
'dwFlags can have value as 1,2,3....
End Sub

NOTE: 1.Form1.BorderStyle should not be "0-none"
2.Win2000 is necessary.