Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim dr As DialogResult = MessageBox.Show( _
    "Wollen Sie die Anwendung beenden?", "Anwendungsmeldung", _
    MessageBoxButtons.YesNo, MessageBoxIcon.Question, _
    MessageBoxDefaultButton.Button2)
        ' wird im Meldungsfenster 'Nein' geklickt, 
        ' wird der Schließvorgang abgebrochen 
        'If (dr = DialogResult.No) Then e.Cancel = True
        If (dr = DialogResult.No) Then
            e.Cancel = True
        Else
            Application.Exit()
                End If
 
 
 
    End Sub