Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
 
    'formmaße in registry speichern
    Select Case Me.WindowState
    Case 0 'normal
        SaveSetting App.Title, "Options", "frmNameWindowState", Me.WindowState
        SaveSetting App.Title, "Options", "frmNameHeight", Me.Height
        SaveSetting App.Title, "Options", "frmNameWidth", Me.Width
        SaveSetting App.Title, "Options", "frmNameLeft", Me.Left
        SaveSetting App.Title, "Options", "frmNameTop", Me.Top
    Case 2 'maximiert
        SaveSetting App.Title, "Options", "WindowState", Me.WindowState
    End Select
 
    End
 
End sub
 
 
Sub RegistryLesen()
    On Error Resume Next
 
    'formeinstellungen
    Me.Left = GetSetting(App.Title, "Options", "frmNameLeft", 10)
    Me.Top = GetSetting(App.Title, "Options", "frmNameTop", 10)
    Me.Width = GetSetting(App.Title, "Options", "frmNameWidth", 10770)
    Me.Height = GetSetting(App.Title, "Options", "frmNameHeight", 7155)
    Me.WindowState = GetSetting(App.Title, "Options", "frmNameWindowState", 0)
 
End Sub