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
 
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 WritePrivateProfileSection Lib _
        "kernel32" Alias "WritePrivateProfileSectionA" _
        (ByVal lpAppName As String, ByVal lpString As _
        String, ByVal lpFileName As String) As Long
 
Private Declare Function GetPrivateProfileSection Lib _
        "kernel32" Alias "GetPrivateProfileSectionA" _
        (ByVal lpAppName As String, ByVal lpReturnedString _
        As String, ByVal nSize As Long, ByVal lpFileName _
        As String) As Long
 
Dim File As String
 
'##--Laden des Programms-------------------------------!!
Private Sub UserForm_Initialize()
 
File = "C:\Test\Grundeinstellungen.ini"
Me.Caption = File
 
Dim value As Variant
 
TB_SP_Breite.Text = GetPrivateProfileString("Page 1: Angaben / Zeilen", "Breite" & _
  "", value, File)
TB_ZH_Hoehe.Text = GetPrivateProfileString("Page 1: Angaben / Zeilen", "Höhe ", _
value, File)
TB_L_String.Text = GetPrivateProfileString("Page 1: Angaben / Zeilen", _
"Zeichenlänge ", value, File)
 
CB_Pos.value = GetPrivateProfileString("Page 2: Angaben / Zeilen", "CB_Pos ", _
  CInt(value), File)
 
TB_ZuVerFarb.BackColor = GetPrivateProfileString("Page 3: Angaben / Titelzeile" & _
  "1", "BackColor ", CInt(value), File)
TB_ZuAnFarb.BackColor = GetPrivateProfileString("Page 3: Angaben / Titelzeile" & _
"2", "Backcolor ", CInt(value), File)
 
End Sub
 
'##--Werte / Einstellungen in *.ini - Datei schreiben--!!
Private Sub cmdOK_Click()
 
Dim value As Variant
 
value = WritePrivateProfileString("Page 1: Angaben / Zeilen", "Breite ", _
  TB_SP_Breite.Text, File)
value = WritePrivateProfileString("Page 1: Angaben / Zeilen", "Höhe ", _
TB_ZH_Hoehe.Text, File)
value = WritePrivateProfileString("Page 1: Angaben / Zeilen", "Zeichenlänge ", _
TB_L_String.Text, File)
 
value = WritePrivateProfileString("Page 2: Angaben / Zeilen", "CB_Pos ", CStr( _
  CB_Pos.value), File)
 
value = WritePrivateProfileString("Page 3: Angaben / Titelzeile 1", "BackColor" & _
  "", CStr(TB_ZuVerFarb.BackColor), File)
value = WritePrivateProfileString("Page 3: Angaben / Titelzeile 2", "Backcolor" & _
"", CStr(TB_ZuAnFarb.BackColor), File)
 
End Sub

VG

Dirk