محو شدن پنچره هنگام بسته شدن

[sajad_boj70]

با سلام خدمت همه دوستان.
من برنامه ای دارم که میخوام با زدن دکمه خروج برنامه یک دفعه بسته نشه و با یک حالت قشنگی پنجره بسته بشه مثلا محو بشه.
میشه لطفا راهنماییم کنید

[returnx]

از این کد استفاده کنید :
کد module:

'--------------Form Layerd------------
Public Const LWA_COLORKEY = &H1
Public Const LWA_ALPHA = &H2
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
'-------------------------------------
کد تایمر:

If opacity > 1 Then
opacity = opacity - 3
SetWindowLong Me.hWnd, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes Me.hWnd, 0, opacity, LWA_ALPHA
Else
End
End If
کد Form_load :

opacity=255
کد دکمه exit :

Timer1.Interval = 1
متغیر مورد نیاز :
یک متغیر به نام Opacity از نوع Integer