一个窗口慢慢消失的效果

 直接复制代码到代码窗口

关闭程序时就能看到效果 

 

Const  LWA_COLORKEY  =   & H1
Const  LWA_ALPHA  =   & H2
Const  GWL_EXSTYLE  =  ( - 20 )
Const  WS_EX_LAYERED  =   & H80000
Private  Declare  Function  GetWindowLong Lib  " user32 "  Alias  " GetWindowLongA "  (ByVal hWnd  As   Long , ByVal nIndex  As   Long )  As   Long
Private  Declare  Function  SetWindowLong Lib  " user32 "  Alias  " SetWindowLongA "  (ByVal hWnd  As   Long , ByVal nIndex  As   Long , ByVal dwNewLong  As   Long )  As   Long
Private  Declare  Function  SetLayeredWindowAttributes Lib  " user32 "  (ByVal hWnd  As   Long , ByVal crKey  As   Long , ByVal bAlpha  As   Byte , ByVal dwFlags  As   Long )  As   Long
Private  Declare  Sub  Sleep Lib  " kernel32 "  (ByVal dwMilliseconds  As   Long )
Private   Sub  Form_Unload(Cancel  As   Integer )
Dim  i  As   Integer
Dim  Ret  As   Long
Ret  =  GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret  =  Ret  Or  WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
i  =   255
Do   While  i  >=   1
    i  =  i  -   1
    SetLayeredWindowAttributes Me.hWnd,  0 , i, LWA_ALPHA
    DoEvents
Loop
End Sub