Private Sub MDIForm_Unload(Cancel As Integer)
    X = MsgBox(Minimieren + "?", vbYesNo + vbExclamation, Beenden)
    If X = 6 Then
        Unload Me
    Else
        AnwendungBeenden
    End If
End Sub
 
' Programmende durch Menu
Private Sub mnuDateiEnde_Click()
    AnwendungBeenden
End Sub