Public Class Form1
 
    Public MeineEinstellungen As New Settings
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Einstellungen.MeineEinstellungen = MeineEinstellungen
        Einstellungen.ShowDialog()
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        MeineEinstellungen = MeineEinstellungen.xmlLesen()
    End Sub
End Class
 
Imports System.Xml.Serialization
 
<Serializable()> _
Public Class Settings
    Property chkbx1 As Boolean = True
    Property chkbx2 As Boolean = False
    Property chkbx3 As Boolean = True
    Property txtbx1 As String = "Text1"
    Property txtbx2 As String = "Text2"
    Property txtbx3 As String = "Text3"
    Property txtbx4 As String = "Text4"
 
    Public Sub New()
 
    End Sub
 
    Public Sub xmlSpeichern(ByVal Einstellungen As Settings)
        Dim meineSerialisierer As New XmlSerializer(GetType(Settings))
        Dim sw As New IO.StreamWriter("C:\Users\xxx\Desktop\Test2.xml")
        meineSerialisierer.Serialize(sw, Einstellungen)
        sw.Close()
    End Sub
 
    Public Function xmlLesen()
        Dim meineSerialisierer As New XmlSerializer(GetType(Settings))
        Dim sr As New IO.StreamReader("C:\Users\xxx\Desktop\Test2.xml")
        Dim Einstellungen As Settings
        Einstellungen = CType(meineSerialisierer.Deserialize(sr), Settings)
        sr.Close()
        Return Einstellungen
    End Function
 
End Class
 
 
Imports System.Xml.Serialization
 
Public Class Einstellungen
 
    Property MeineEinstellungen As Settings
 
 
    Private Sub Einstellungen_Load(sender As System.Object, e As _
      System.EventArgs) Handles MyBase.Load
        CheckBox1.Checked = MeineEinstellungen.chkbx1
        CheckBox2.Checked = MeineEinstellungen.chkbx2
        CheckBox3.Checked = MeineEinstellungen.chkbx3
        TextBox1.Text = MeineEinstellungen.txtbx1
        TextBox2.Text = MeineEinstellungen.txtbx2
        TextBox3.Text = MeineEinstellungen.txtbx3
        TextBox4.Text = MeineEinstellungen.txtbx4
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
        MeineEinstellungen.chkbx1 = CheckBox1.Checked
        MeineEinstellungen.chkbx2 = CheckBox2.Checked
        MeineEinstellungen.chkbx3 = CheckBox3.Checked
        MeineEinstellungen.txtbx1 = TextBox1.Text
        MeineEinstellungen.txtbx2 = TextBox2.Text
        MeineEinstellungen.txtbx3 = TextBox3.Text
        MeineEinstellungen.txtbx4 = TextBox4.Text
 
        MeineEinstellungen.xmlSpeichern(MeineEinstellungen)
 
 
    End Sub
End Class