كيف نحدد طريقة غلق النافذة ؟ - نسخة قابلة للطباعة

PHP كود :
Public Class Form1
    Dim cl As Boolean
    Dim apath As String = IO.Path.GetDirectoryName(Application.ExecutablePath)
    Dim cltxt As String = apath & "\cl.txt"
    Private Sub save()
        IO.File.WriteAllText(cltxt, cl.ToString)
    End Sub
    Private Function gt() As String
        Return My.Computer.FileSystem.ReadAllText(cltxt)
    End Function
    Private Function IsNormal(t As String) As Boolean
        If t.ToString.Trim.ToLower = "true" Then Return True Else Return False
    End Function
    Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        save()
    End Sub
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        cl = True
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If IsNormal(gt) = False Then
            MsgBox("لم يتم اغلاق الفورم بشكل صحيح", MsgBoxStyle.Information, "")
        End If
        IO.File.WriteAllText(cltxt, String.Empty)
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Hide()
        End
    End Sub
End Class