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
 
Dim RetVal As long
Dim FarbWert As string
Dim Pfad as string
Pfad = App.path & "\einstellungen.ini"
FarbWert = Space(255) 'Puffer mit Zeichen füllen
 
RetVal = GetPrivateProfileString("Formular", "Hintergrundfarbe", "vbBlue", _
  FarbWert, Len(FarbWert), Pfad)
 
Formular.backcolor = FarbWert