====== Windows Form schließen ======

<code vb>
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Select Case e.CloseReason
            Case CloseReason.ApplicationExitCall
                'Application.exit wurde aufgerufen
            Case CloseReason.TaskManagerClosing
                'beendet durch Taskmanager
            Case CloseReason.UserClosing
                'User hat das Fenster geschlossen
            Case CloseReason.WindowsShutDown
                'Windows wird runtergefahren
        End Select
End Sub
</code>