Option Explicit''窗口显示特效
Private Enum DWFAGS
    AW_SLIDE
    AW_ACTIVE
    AW_BLEND
    AW_HIDE
    AW_CENTER
    AW_HOR_POSITIVE
    AW_VER_POSITIVE
    AW_VER_NEGATIVE
End EnumPrivate Declare Function AnimateWindow Lib "user32" _
(ByVal hwnd As Long, ByVal dwTime As Long, ByVal flag As DWFAGS) As Boolean
Private Sub Form_Load()
AnimateWindow hwnd, 400, AW_BLEND Or AW_CENTER
Me.Refresh
End Sub