'General Declarations
Private SetTrans As CTranslucentForm
Dim lngAlpha As Long

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Set SetTrans = New CTranslucentForm
SetTrans.hwnd = Form1.hwnd
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
lngAlpha = lngAlpha + 15
SetTrans.Alpha = 255 - lngAlpha

If SetTrans.Alpha = 0 Then
Unload Me
End If
End Sub