Option Explicit

Public Sub LiesFormPos(frm As Form)
  frm.Left = Val(GetSetting(App.EXEName, "Settings", _
                "FormLeft", "2000"))
  frm.Top = Val(GetSetting(App.EXEName, "Settings", _
                "FormTop", "2000"))
  frm.Width = Val(GetSetting(App.EXEName, "Settings", _
                "FormWidth", "5000"))
  frm.Height = Val(GetSetting(App.EXEName, "Settings", _
                "FormHeight", "2400"))
End Sub

Public Sub SchreibFormPos(frm As Form)
  SaveSetting App.EXEName, "Settings", "FormLeft", CStr(frm.Left)
  SaveSetting App.EXEName, "Settings", "FormTop", CStr(frm.Top)
  SaveSetting App.EXEName, "Settings", "FormHeight", _
                CStr(frm.Height)
  SaveSetting App.EXEName, "Settings", "FormWidth", CStr(frm.Width)
End Sub

Option Explicit

Dim myFSet As New clsFormSet

Private Sub Form_Load()
  myFSet.LiesFormPos Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
  myFSet.SchreibFormPos Me
End Sub