Private Sub Form_Load()
    einstellungen
End Sub

Public Sub einstellungen()
 
    myIniFile = App.Path & "\einstellungen.ini"
 
    ' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 
    sValue = GetIniString("Formular", "Hintergrundfarbe", sValue, myIniFile)
 
    If sValue <> "" Then
        Me.BackColor = sValue
 
        For i = 0 To lblA.Count - 1
            With lblA(i)
                .BackColor = sValue
            End With
        Next
    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
    End If
 
    sValue = ""
 
    ' --------------------------------
 
    sValue = GetIniString("Formular", "Schriftart", sValue, myIniFile)
 
    If sValue <> "" Then
        For i = 0 To lblA.Count - 1
            With lblA(i)
                .Font.Name = sValue
            End With
        Next
    End If
 
    sValue = ""
 
    ' --------------------------------
 
    sValue = GetIniString("Formular", "Schriftgroesse", sValue, myIniFile)
 
    If sValue <> "" Then
        For i = 0 To lblA.Count - 1
            With lblA(i)
                .Font.Size = sValue
            End With
        Next
    End If
 
    sValue = ""
 
    ' --------------------------------
 
    sWert = False
 
    sWert = GetIniString("Formular", "Fett", sWert, myIniFile)
 
    If sWert = True Then
        For i = 0 To lblA.Count - 1
            With lblA(i)
                .Font.Bold = True
            End With
        Next
    End If
 
    sWert = False
 
    ' --------------------------------
 
    sWert = GetIniString("Formular", "Kursiv", sWert, myIniFile)
 
    If sWert = True Then
        For i = 0 To lblA.Count - 1
            With lblA(i)
                .Font.Italic = True
            End With
        Next
    End If
 
    sWert = False
 
    ' --------------------------------
 
    sWert = GetIniString("Formular", "Unterstrichen", sWert, myIniFile)
 
    If sWert = True Then
        For i = 0 To lblA.Count - 1
            With lblA(i)
                .Font.Underline = True
            End With
        Next
    End If
 
    sWert = False
 
    ' --------------------------------
 
    sWert = GetIniString("Formular", "Durchgestrichen", sWert, myIniFile)
 
    If sWert = True Then
        For i = 0 To lblA.Count - 1
            With lblA(i)
                .Font.Strikethrough = True
            End With
        Next
    End If
 
    sWert = False
 
End Sub
 
ziemlich viel, aber ihr seht was ich habe