Private Sub Form1_Closing (ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.ClosingIf MsgBox ( "Please look close window", MsgBoxStyle.Question MsgBoxStyle.OKCancel, "off") = MsgBoxResult.OK ThenDim D as DoubleFor D = 1 to 0 0.2 Step -0.2system.threading.thread.sleep (50) Application.doevents () me.opacity = DME.REFRESH () Next Delsee.cancel = trueEnd IF '1. Vision window Form1 '2. Name the variable D' 3. Appropriate change program END SUB - Blue Shop (http://www.blueshow.com.tw/skillboard/show.asp?repno=1232&page= 1 & pgmtype = asp.net)
