Visual Basic

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _<br />
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long<br />
Private Declare Function SetLayeredWindowAttributes Lib "user32" _<br />
    (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long<br />
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _<br />
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long<br />
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)<br />
<br />
Private Const GWL_EXSTYLE = (-20)<br />
Private Const LWA_ALPHA = &H2&<br />
Private Const WS_EX_LAYERED = &H80000

Private Sub Command2_Click()<br />
Dim fadeCtr As Integer<br />
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)<br />
For fadeCtr = 255 To 0 Step -1<br />
    Call SetLayeredWindowAttributes(Me.hwnd, 0, fadeCtr, LWA_ALPHA)<br />
    DoEvents<br />
    Call Sleep(5)<br />
Next<br />
End<br />
End Sub