Public Declare Auto Function AnimateWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal dwtime As Integer, ByVal dwflag As Integer) As Boolean
Public Const AW_HOR_POSITIVE = &H1
Public Const AW_HOR_NEGATIVE = &H2
Public Const AW_VER_POSITIVE = &H4
Public Const AW_VER_NEGATIVE = &H8
Public Const AW_CENTER = &H10
Public Const AW_HIDE = &H10000
Public Const AW_ACTIVATE = &H20000
Public Const AW_SLIDE = &H40000
Public Const AW_BLEND = &H80000

然后
Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AnimateWindow(Me.Handle, 5000, AW_BLEND Or AW_ACTIVATE)
End Sub

所有书上都是这么写的，但没任何反应，哪里错了呢？