Option Explicit
 
Private Declare Function GetPrivateProfileString Lib "kernel32" _
  Alias "GetPrivateProfileStringA" (ByVal lpApplicationName _
  As String, ByVal lpKeyName As Any, ByVal lpDefault As String, _
  ByVal lpReturnedString As String, ByVal nSize As Long, ByVal _
  lpFileName As String) As Long
 
Private Declare Function WritePrivateProfileString Lib "kernel32" _
  Alias "WritePrivateProfileStringA" (ByVal lpApplicationName _
  As String, ByVal lpKeyName As Any, ByVal lpString As Any, _
  ByVal lpFileName As String) As Long
 
  Function GetIniValue(iSect$, iKey$, dWert$, iniDat$) As String
  Dim iValue As String
  Dim iR As Long
 
  iValue = Space$(50)
  iR = GetPrivateProfileString(iSect, iKey, dWert, iValue, _
          Len(iValue), iniDat)
  If iR > 1 Then iValue = Left$(iValue, iR)
  GetIniValue = iValue
End Function
 
Function SetIniValue(iSect$, iKey$, iValue$, iniDat$) As String
  Dim iW As Long
 
  iW = WritePrivateProfileString(iSect, iKey, iValue, iniDat)
End Function

Option Explicit
Dim iniDat As String
 
Private Sub Form_Load()
iniDat = App.Path & "\Config.ini"
'Position auf dem Desktop ermitteln
Me.Top = GetIniValue("Daten", "Top", "0", iniDat)
Me.Left = GetIniValue("Daten", "Left", "0", iniDat)
'Fenstergröße ermitteln
Me.Height = GetIniValue("Daten", "Height", "3600", iniDat)
Me.Width = GetIniValue("Daten", "Width", "4800", iniDat)
'Starmodus ermitteln
Me.WindowState = GetIniValue("Daten", "WindowState", "0", iniDat)
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
'Position auf dem Desktop speichern
SetIniValue "Daten", "Top", Me.Top, iniDat
SetIniValue "Daten", "Left", Me.Left, iniDat
'Fenstergröße speichern
SetIniValue "Daten", "Height", Me.Height, iniDat
SetIniValue "Daten", "Width", Me.Width, iniDat
'Startmodus ermitteln
SetIniValue "Daten", "WindowState", Me.WindowState, iniDat
End Sub