Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 
    If UnloadMode = 0 Then  ' Das Rote X wurde geklickt
        Cancel = 1
        Me.Hide
    ElseIf UnloadMode = 1 Then ' Das Programm wurde per Code beendet
        Dim f As Form
            For Each f In Forms
                Unload f
                Set f = Nothing
            Next
    End If
 
End Sub