' Speichern der Farbe
 
Dim Hintergrundfarbe As Integer = Bdbackground.BackColor.ToArgb
 
        Dim SavedHintergrundfarbe As Integer = CInt(Hintergrundfarbe)
        ColorDialog1.Color = Color.FromArgb(SavedHintergrundfarbe)
        WritePrivateProfileString("Einsellung", "Hintergrundfarbe", _
          Hintergrundfarbe, ".\Einstellung.ini")

Dim Hintergrundfarbe As Integer = PnAnzeige.BackColor.ToArgb
                Dim LoadedHintergrundfarbe As Integer = CInt(Hintergrundfarbe)
        PnAnzeige.BackColor = Color.FromArgb(LoadedHintergrundfarbe)
        GetPrivateProfileString("Einstellung", "Hintergrundfarbe", _
          Hintergrundfarbe, ".\Einstellung.ini")

    <System.Runtime.InteropServices.DllImport("kernel32.dll", _
        SetLastError:=True)> _
    Private Shared Function GetPrivateProfileString(ByVal lpAppName As String, _
                            ByVal lpKeyName As String, _
                            ByVal lpDefault As String, _
                            ByVal lpReturnedString As _
                            System.Text.StringBuilder, _
                            ByVal nSize As Integer, _
                            ByVal lpFileName As String) As Integer
    End Function
 
    <System.Runtime.InteropServices.DllImport("kernel32.dll", _
        SetLastError:=True)> _
    Private Shared Function WritePrivateProfileString(ByVal lpAppName As _
    String, _
                        ByVal lpKeyName As String, _
                        ByVal lpString As String, _
                        ByVal lpFileName As String) As Integer
    End Function

Public Function IniColorDialog(ByVal DefaultColor As Color, _
                                   ByRef UserColor As Color) As Boolean
 
        'Weitere Details: http://www.vbarchiv.net/tipps/details.php?id=2241
 
        Using colordia As New System.Windows.Forms.ColorDialog
            Dim dc As Integer
            With DefaultColor
                dc = Microsoft.VisualBasic.Information.RGB(.R, .G, .B)
            End With
 
            With colordia
                .CustomColors() = {dc}
                .Color = DefaultColor
                .SolidColorOnly = True
                If .ShowDialog = Windows.Forms.DialogResult.Cancel Then
                    UserColor = Nothing
                    Return False
                Else
                    UserColor = .Color
                    Return True
                End If
            End With
        End Using
    End Function
 
 
    Private Function CheckIniParams(ByVal IniFile As String, _
        section As String, Keyname As String) As Boolean
 
        If Not IO.File.Exists(IniFile) Then Return False
        If Not (IO.Path.GetExtension(IniFile).ToLower) = ".ini" Then Return _
          False
        If String.IsNullOrWhiteSpace(section) Then Return False
        If String.IsNullOrWhiteSpace(Keyname) Then Return False
        Return True
    End Function
 
 
    Private Function SetColorToIni(IniFile As String, _
                              Section As String, Keyname As String, _
                              ColorToSet As System.Drawing.Color) As Boolean
 
        If Not CheckIniParams(IniFile, Section, Keyname) Then Return False
 
        Dim keyvalue As String = ColorToSet.ToArgb.ToString()
 
        Dim result As Integer = WritePrivateProfileString _
            (Section, Keyname, keyvalue, IniFile)
 
        Return result > 0
    End Function
 
 
    Private Function GetColorFromIni(ByVal IniFile As String,
                        Section As String, Keyname As String,
                        ByRef ColorFromIni As System.Drawing.Color) As Boolean
 
        If Not CheckIniParams(IniFile, Section, Keyname) Then Return False
 
        Dim keyvalue As New System.Text.StringBuilder(100)
        Dim defaultcolor As String = Color.White.ToArgb.ToString
 
        Dim result As Integer = GetPrivateProfileString _
            (Section, Keyname, defaultcolor, keyvalue, keyvalue.Capacity, _
            IniFile)
 
        ColorFromIni = Color.FromArgb(CInt(keyvalue.ToString))
        Return True
    End Function

'Angemessener Pfad der Ini-Datei
Dim IniFilename As String = _
IO.Path.Combine( _
My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData, _
"Einstellungen.ini")
 
'Schlüssel für Ini
Dim section As String = "Farbeinstellungen"
Dim keyname As String = "Hintergrundfarbe"
 
'Ini-Datei ggf. erstellen und einrichten
If Not IO.File.Exists(IniFilename) Then
   Using sw As IO.StreamWriter = IO.File.CreateText(IniFilename)
      sw.WriteLine("[" & section & "]")
      sw.WriteLine(keyname & "=" & Me.BackColor.ToArgb.ToString)
   End Using
End If
 
Dim defaultcolor, usercolor, inicolor As Color
 
GetColorFromIni(IniFilename, section, keyname, defaultcolor)
 
If IniColorDialog(defaultcolor, usercolor) Then
 
   'Schlüsselwert (Farbe) eintragen
   If Not SetColorToIni(IniFilename, section, keyname, usercolor) Then
      MsgBox("Farbe kann nicht eingetragen werden")
   Else
 
      'Schlüsselwert (Farbe) lesen
      If Not GetColorFromIni(IniFilename, section, keyname, inicolor) Then
          MsgBox("Farbe kann nicht gelesen werden")
      Else
          Me.BackColor = inicolor
      End If
   End If
End If

[Einstellung]
 
Hintergrundfarbe=-128

 Public Shared Function SetColorToIni(IniFile As String, _
                        Section As String, Keyname As String, _
                        ColorToSet As System.Drawing.Color) As Boolean
 
        If Not CheckIniParams(IniFile, Section, Keyname) Then Return False
 
        Dim keyvalue As String = ColorToSet.ToArgb.ToString()
 
        Dim result As Integer = WritePrivateProfileString _
            (Section, Keyname, keyvalue, IniFile)
 
        Return result > 0
    End Function

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

Public Class IniAccess
  <System.Runtime.InteropServices.DllImport("kernel32.dll", _
  SetLastError:=True)> _
  Private Shared Function GetPrivateProfileString _
              '...... ergänzen
  End Function
 
   <System.Runtime.InteropServices.DllImport("kernel32.dll", _
    SetLastError:=True)> _
   Private Shared Function WritePrivateProfileString _
             '.......
   End Function
 
 
   Private Shared _IniFilename As String
 
   Public Shared Property IniFileName() As String
        Set(value As String)
            If Not IO.File.Exists(value) Then
                Throw New ArgumentException("Datei nicht vorhanden")
            End If
            _IniFilename = value
        End Set
        Get
            Return _Inifilename
        End Get
   End Property
 
 
   Private Shared Function CheckIniParams(section As String, _
        Keyname As String) As Boolean
 
        If Not IO.File.Exists(_IniFilename) Then Return False
        If Not (IO.Path.GetExtension(_IniFilename).ToLower) = ".ini" Then _
          Return False
        If String.IsNullOrWhiteSpace(section) Then Return False
        If String.IsNullOrWhiteSpace(Keyname) Then Return False
        Return True
   End Function
 
 
    Public Shared Function SetStringToIni(Section As String, Keyname As String,
                                          StringToIni As String) As Boolean
 
        If Not CheckIniParams(Section, Keyname) Then Return False
 
        Dim result As Integer = WritePrivateProfileString _
                (Section, Keyname, StringToIni, _IniFilename)
 
        Return result > 0
 
    End Function
 
 
    Public Shared Function GetStringFromIni _
                            (ByVal Section As String, keyname As String,
                             ByRef StringFromIni As String, _
                Optional ByVal DefaultString As String = "leer") As Boolean
 
        Dim defstring As String
        If String.IsNullOrWhiteSpace(DefaultString) Then
            defstring = "leer"
        Else
            defstring = DefaultString
        End If
        StringFromIni = defstring
 
        If Not CheckIniParams(Section, keyname) Then Return False
 
        Dim keyvalue As New System.Text.StringBuilder(1024)
 
        Dim result As Integer = GetPrivateProfileString _
            (Section, keyname, defstring, keyvalue, _
             keyvalue.Capacity, _IniFilename)
        If result = 0 Then
            Return False
        Else
            StringFromIni = keyvalue.ToString
            Return True
        End If
    End Function
 
 
    Public Shared Function SetColorToIni _
                     (Section As String, Keyname As String, _
                      ColorToSet As System.Drawing.Color) As Boolean
 
        If Not CheckIniParams(Section, Keyname) Then Return False
 
        Dim keyvalue As String = ColorToSet.ToArgb.ToString()
 
        Return SetStringToIni(Section, Keyname, keyvalue)
    End Function
 
 
    Public Shared Function GetColorFromIni _
                   (Section As String, Keyname As String,
                    ByRef ColorFromIni As System.Drawing.Color, _
           Optional ByVal Defaultcolor As Color = Nothing) As Boolean
 
        ColorFromIni = Defaultcolor
        If Not CheckIniParams(Section, Keyname) Then Return False
 
        Dim defcolor As String
        If Defaultcolor = Nothing Then
            defcolor = Color.White.ToArgb.ToString
        Else
            defcolor = Defaultcolor.ToArgb.ToString
        End If
 
        Dim keyvalue As String = ""
        If GetStringFromIni(Section, Keyname, keyvalue, defcolor) Then
            Try
                ColorFromIni = Color.FromArgb(CInt(keyvalue.ToString))
            Catch
                Return False
            End Try
            Return True
        Else
            Return False
        End If
    End Function
End Class

Dim IniFilename As String = _ IO.Path.Combine _
(My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData, _
"Einstellungen.ini")
 
IniAccess.IniFileName = IniFilename

'Zuweisung:
 
Dim section As String = "Farbeinstellungen"
Dim keyname As String = "Hintergrundfarbe"
 
Dim Usercolor as Color
'ggf. zunächst Dialogabfrage der Farbe (UserColor)
'dann:
IniAccess.SetColorToIni(section, keyname, usercolor)
 
'Abfrage:
'optional kann eine DefaultColor vorgegeben werden
Dim IniColor as Color
IniAccess.GetColorFromIni(section, keyname, inicolor)
PbAnzeige.BackColor = inicolor