Private Sub Form_Load()
    Call RegistryLesen
End Sub
 
Sub RegistryLesen()
    On Error GoTo RegistryLesen_Fehler
    Dim ff As Integer
    Dim sa As String
    If Dir(App.Path & "\" & App.Title & ".txt") <> "" Then  'prüfen ob datei 
    ' vorhanden ist
        'formgröße auslesen
        ff = FreeFile
        Open App.Path & "\" & App.Title & ".txt" For Input As #ff
            Line Input #ff, sa
            Me.WindowState = Val(sa)
            Line Input #ff, sa
            Me.Height = Val(sa)
            Line Input #ff, sa
            Me.Width = Val(sa)
            Line Input #ff, sa
            Me.Left = Val(sa)
            Line Input #ff, sa
            Me.Top = Val(sa)
        Close #ff
    End If
Exit Sub
RegistryLesen_Fehler:
    Close #ff
    MsgBox Err.Number & " " & Err.Description, vbExclamation, _
      "RegistryLesen_Fehler"
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)
    On Error GoTo Form_Unload_Fehler
    Dim ff As Integer
    'formmaße in registry speichern
    ff = FreeFile
    Open App.Path & "\" & App.Title & ".txt" For Output As #ff
        Print #ff, CStr(Me.WindowState)
        Print #ff, CStr(Me.Height)
        Print #ff, CStr(Me.Width)
        Print #ff, CStr(Me.Left)
        Print #ff, CStr(Me.Top)
    Close #ff
    DoEvents
    'programm beenden
    End
Exit Sub
Form_Unload_Fehler:
    Close #ff
    MsgBox Err.Number & " " & Err.Description, vbExclamation, _
      "Form_Unload_Fehler"
End Sub