VB利用AIP制作窗口淡入淡出的效果

Option Explicit
Private Declare Function AnimateWindow Lib “user32” (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean
Private Const WS_CLIPSIBLINGS = &H4000000 '不重绘层叠子窗口
Const AW_HIDE = &H10000 '隐藏窗口，缺省则显示窗口。
Const AW_SHOW = &H20000 '带最小化按钮的窗口
Const AW_BLEND = &H80000 '使用滑动类型。缺省则为滚动动画类型。当使用AW_CENTER标志时，这个标志就被忽略。

Private Sub Form_Load() '淡入效果
AnimateWindow Me.hwnd, 0, AW_BLEND Or AW_SHOW Or WS_CLIPSIBLINGS
End Sub

Private Sub Form_Unload(Cancel As Integer) '淡出效果
AnimateWindow Me.hwnd, 0, AW_BLEND Or AW_HIDE Or WS_CLIPSIBLINGS
Set Form1 = Nothing
End Sub