<code>Private Sub Form_Load()
  <font color=green>' Fenstergröße und Position lesen</font>
  Dim sVorgabe As String
  Dim sPos() As String
  Dim sValue As String
 
  sVorgabe = CStr(Me.Left) + ";" + CStr(Me.Top) + ";" + _
    CStr(Me.Width) + ";" + CStr(Me.Height)
 
  sValue = GetSetting("MyApp", "Form1", "Position", sVorgabe)
  sPos = Split(sValue, ";")
 
  Me.Left = Val(sPos(0))
  Me.Top = Val(sPos(1))
  Me.Width = Val(sPos(2))
  Me.Height = Val(sPos(3))
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  <font color=green>' Fenstergröße und Position speichern</font>
  Dim sValue As String
 
  sValue = CStr(Me.Left) + ";" + CStr(Me.Top) + ";" + _
    CStr(Me.Width) + ";" + CStr(Me.Height)
 
  SaveSetting "MyApp", "Form1", "Position", sValue
End Sub</code>