Dim keyvalue As New System.Text.StringBuilder(10000)
        Dim defaultcolor, inicolor As Color
        Dim IniFilename As String = _
        IO.Path.Combine( _
        My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData, _
        ".\Einstellung.ini")
        'Schlüssel für Ini
        Dim section As String = "Farbeinstellung"
        Dim keyname As String = "Hintergrundfarbe"
        defaultcolor = Color.FromArgb(CStr(keyvalue.ToString))
 
        If GetColorFromIni(IniFilename, section, keyname, defaultcolor) Then
 
        End If
 
        PnAnzeige.BackColor = inicolor