Private Sub Form_Load()
    'formgröße auslesen
    Me.WindowState = GetSetting(App.Title, "Options", "WindowState", 0)
    Me.Left = GetSetting(App.Title, "Options", "FromLeft", 10)
    Me.Top = GetSetting(App.Title, "Options", "FromTop", 10)
    Me.Width = GetSetting(App.Title, "Options", "FromWidth", _
      17040)	'anfangsbreite der form
    Me.Height = GetSetting(App.Title, "Options", "FromHeight", _
    6180)	'anfangshöhe der form
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", "FromHeight", Me.Height
        SaveSetting App.Title, "Options", "FromWidth", Me.Width
        SaveSetting App.Title, "Options", "FromLeft", Me.Left
        SaveSetting App.Title, "Options", "FromTop", Me.Top
    Case 2 'maximiert
        SaveSetting App.Title, "Options", "WindowState", Me.WindowState
    End Select
End Sub