Vb. NET window fades off

Private Sub form1_closing (ByVal sender as Object, ByVal e as System.ComponentModel.CancelEventArgs) Handles Mybase.closing
If MsgBox ("Please pay attention to the Closed view window", Msgboxstyle.question + Msgboxstyle.okcancel, "close") = Msgboxresult.ok Then
Dim D as Double
For d = 1 to 0 + 0.2 Step-0.2
System.Threading.Thread.Sleep (50)
Application.doevents ()
Me.opacity = d
Me.refresh ()
Next D
Else
E.cancel = True
End If
' 1 window for Form1
' 2. Name the variable D
' 3. Change the code according to the name of the object
End Sub

--Blue Shop (Http://www.blueshop.com.tw/SkillBoard/show.asp?repno=1232&page=1&PgmType=ASP). NET)