Private Sub Form_Unload(Cancel As Integer) 'Formposition in Registry speichern
  Select Case Me.WindowState
    Case 0 'Normale Fenstergröße
      SaveSetting App.Title, "Options", "WindowState", Me.WindowState
      SaveSetting App.Title, "Options", "FormHeight", Me.Height
      SaveSetting App.Title, "Options", "FormWidth", Me.Width
      SaveSetting App.Title, "Options", "FormLeft", Me.Left
      SaveSetting App.Title, "Options", "FormTop", Me.Top
      SaveSetting App.Title, "Options", "LastRun", " Letzter Programmaufruf war" & _
        "am " & Format(Date, "Long Date") & " um " & Time
    Case 2 'Wenn Form maximiert wurde
      SaveSetting App.Title, "Options", "WindowState", Me.WindowState
  End Select
  End 'Erst jetzt das Programm beenden
End Sub