窗体的淡入淡出效果
代码:
Public Class Form1
Inherits System.Windows.Forms.Form
Declare Auto Function animatewindow Lib "user32" (ByVal hwnd As Integer, ByVal dwTime As Integer, _
ByVal dwFlags As Integer) As Boolean
Const AW_HOR_POSITIVE = &H1
Const AW_HOR_NEGATIVE = &H2
Const AW_VER_POSITIVE = &H4
Const AW_VER_NEGPTIVE = &H8
Const AW_CENTER = &H10
Const AW_HIDE = &H10000
Const AW_ACTIVATE = &H20000
Const AW_SLIDE = &H40000
Const AW_BLEND = &H80000

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
animatewindow(Me.Handle, 1000, AW_BLEND Or AW_HIDE)
End Sub
End Class
运行时

这是怎么回事呀?