SaveSetting App.Title, "Options", "Name_Beliebig", Me.Left

 Me.Left = GetSetting(App.Title, "Options", "Name_Beliebig", 10)

Private Sub Form_Load()
    Call RegistryLesen
End Sub
 
Sub RegistryLesen()
    'formgröße auslesen
    Me.WindowState = GetSetting(App.Title, "Options", "WindowState", 0)
    Me.Left = GetSetting(App.Title, "Options", "FormLeft", 10)
    Me.Top = GetSetting(App.Title, "Options", "FormTop", 10)
    Me.Width = GetSetting(App.Title, "Options", "FormWidth", 11025)
    Me.Height = GetSetting(App.Title, "Options", "FormHeight", 7920)
End Sub
 
Private Sub Command1_Click()
    'programm beenden, jedoch nicht hier den END befehl verwenden sondern nur 
    ' in Form_Unload
    Unload Me
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    'formmaße in registry speichern
    Select Case Me.WindowState
    Case 0 'normal
        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
    Case 2 'maximiert
        SaveSetting App.Title, "Options", "WindowState", Me.WindowState
    End Select
    'programm beenden
    End
End Sub