Dim lresult As Long
Dim sValue As String
Dim sWert As Boolean
Dim myIniFile As String
 
Private Sub Command2_Click()
    ' Flags-Eigenschaft setzen
    cdl1.Flags = cdlCFEffects Or cdlCFBoth
    ' Dialogfeld "Schriftart" anzeigen
    cdl1.ShowFont
 
    myIniFile = App.Path & "\einstellungen.ini"
 
    ' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 
    sValue = cdl1.Color
 
    WritePrivateProfileString "Formular", "Schriftfarbe", sValue, myIniFile
 
    For i = 0 To lblA.Count - 1
        With lblA(i)
            .ForeColor = sValue
        End With
    Next
 
    sValue = ""
 
' .... paar einstellungen mehr
 
    sWert = False
 
    sWert = cdl1.FontBold
 
    WritePrivateProfileString "Formular", "Fett", sWert, myIniFile
 
    For i = 0 To lblA.Count - 1
        With lblA(i)
            .Font.Bold = cdl1.FontBold
        End With
    Next
 
    sWert = False

Private Sub Form_Load()
    myIniFile = App.Path & "\einstellungen.ini"
 
    ' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 
    sValue = GetIniString("Formular", "Hintergrundfarbe", sValue, myIniFile)
 
    If sValue <> "" Then
        Me.BackColor = sValue
    Else
        Exit Sub
    End If
 
    sValue = ""
 
    ' --------------------------------
 
    sValue = GetIniString("Formular", "Schriftfarbe", sValue, myIniFile)
 
    If sValue <> "" Then
        For i = 0 To lblA.Count - 1
            With lblA(i)
                .ForeColor = sValue
            End With
        Next
    Else
        Exit Sub
    End If
 
    sValue = ""