Public Class frmSettingsDemo
 
    'Klasse für die Serialisierung der Einstellungen
    Public Class SettingsSerialization
 
        'Der erforderliche Formatter (Projektverweis notwendig!)
        Dim ft As New _
         System.Runtime.Serialization.Formatters.Soap.SoapFormatter
 
 
        'Serialisierbare Datenklasse
        <System.Serializable>
        Public Class SettingsProperties
 
            'Festlegung der Eigenschaften incl. Datentyp und Defaultwert
            Public Property Text_Font As Font = New Font("Arial", 8)
            Public Property Text_Forecolor As Drawing.Color = Color.Black
            Public Property Text_Backcolor As Drawing.Color = Color.White
 
        End Class
 
        'Instanz für Aufbewahrung der Einstellungen  
        Public Settings As New SettingsProperties
 
        'Abfrage-Properties für die Datenbindiung
        ReadOnly Property Text_Font As Font
            Get
                Return Settings.Text_Font
            End Get
        End Property
 
        ReadOnly Property Text_Forecolor As Color
            Get
                Return Settings.Text_Forecolor
            End Get
        End Property
 
        ReadOnly Property Text_Backcolor As Color
            Get
                Return Settings.Text_Backcolor
            End Get
        End Property
 
        'Serialisierung / Speichern der Einstellungen in einer Datei
        Public Sub Serialize(ByVal FileName As String)
            'Instanz der SettingsProperties im Filestream speichern
            Using fs As New IO.FileStream(FileName, IO.FileMode.OpenOrCreate, _
              IO.FileAccess.Write)
                ft.Serialize(fs, Settings)
            End Using
        End Sub
 
        'Lesen der gespeicherten Einstellungen aus einer Datei
        Public Sub Deserialize(ByVal filename As String)
            Using fs As New IO.FileStream(filename, IO.FileMode.Open, _
              IO.FileAccess.Read)
                'Instanz der Settingsproperties ais Filetream lesen
                Settings = DirectCast(ft.Deserialize(fs), SettingsProperties)
            End Using
        End Sub
    End Class
 
 
 
    'Instanz der Klasse für Aufbewahrung und Serialisierung der eingestellten 
    ' Werte
    Dim mySettings As New SettingsSerialization
 
    'einzurichtendes Control
    Dim tbo As New TextBox With {.Parent = Me, .Width = 300}
 
 
    'Erstellen und Speichern der Einstellungen
    Private Sub CreateSettings()
 
        With mySettings
            With .Settings
                .Text_Backcolor = Color.Red
                .Text_Forecolor = Color.White
                .Text_Font = New Font("Arial", 20, FontStyle.Italic)
            End With
 
            'beliebige Datei als Parameter angeben
            .Serialize("G:\Daten\frmSettings.xml")
        End With
    End Sub
 
 
    'Lesen und Anbinden der Einstellungen
    Private Sub GetSettings()
 
        mySettings.Deserialize("G:\Daten\frmSettings.xml")
 
        With tbo.DataBindings
            .Add("Forecolor", mySettings, "Text_Forecolor")
            .Add("Backcolor", mySettings, "Text_Backcolor")
            .Add("Font", mySettings, "Text_Font")
        End With
 
    End Sub
 
 
 
    Private Sub frmSettingsDemo_Load(sender As Object, _
        e As EventArgs) Handles MyBase.Load
 
        CreateSettings() 'nur beim ersten Aufruf der Form erforderlich
 
        GetSettings()
    End Sub
End Class