调用AnimateWindow函数怎么没反应啊??
Public Declare Auto Function AnimateWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal dwtime As Integer, ByVal dwflag As Integer) As BooleanPublic 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
所有书上都是这么写的,但没任何反应,哪里错了呢?