Imports System.xml
 
Public Class clsKunde
    Public item As itemK
End Class
 
Public Class itemK
    <Xml.Serialization.XmlAttribute()> Public objectiv As String
    Public ort As String
    Public infopost As String
    Public plz As String
    Public strasse As String
    Public vorname As String
    Public zuname As String
    Public geschlecht As String
End Class
 
Public Class settings
 
    Private Sub Speichern_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Try
            'Dim objDatei As New System.IO.FileStream( 
            ' "c:\messdiff\settings.xml", IO.FileMode.Open)
            Dim objSerializer As New Serialization.XmlSerializer(GetType( _
              clsKunde))
            Dim writer As New System.IO.StreamWriter("c:\messdiff\settings.xml")
 
            Dim Kunde As New clsKunde()
            Dim t As New itemK()
            Kunde.item = t
 
            With t
                If Me.radFrau.Checked = True Then
                    .geschlecht = "Frau"
                Else
                    .geschlecht = "Herr"
                End If
                .vorname = Me.txtvorname.Text
                .zuname = Me.txtzuname.Text
                .strasse = Me.txtstrasse.Text
                .plz = Me.txtplz.Text
                .ort = Me.txtort.Text
                If Me.chkinfopost.Checked = True Then
                    .infopost = "Wahr"
                Else
                    .infopost = "Falsch"
                End If
            End With
 
            objSerializer.Serialize(writer, Kunde)
            writer.Close()
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
    Private Sub Laden_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim objSerializer As Serialization.XmlSerializer
        Dim objStream As System.IO.FileStream
        Dim objGelKunde As clsKunde
 
        objStream = New System.IO.FileStream("c:\messdiff\settings.xml", _
          IO.FileMode.Open)
        objSerializer = New Serialization.XmlSerializer(GetType(clsKunde))
        objGelKunde = objSerializer.Deserialize(objStream)
 
 
        With objGelKunde.item
            If .geschlecht = "Frau" Then
                Me.radFrau.Checked = True
            Else
                Me.radherr.Checked = True
            End If
 
            Me.Label10.Text = .objectiv
            Me.txtvorname.Text = .vorname
            Me.txtzuname.Text = .zuname
            Me.txtstrasse.Text = .strasse
            Me.txtplz.Text = .plz
            Me.txtort.Text = .ort
            If .infopost = "Wahr" Then
                Me.chkinfopost.Checked = True
            End If
        End With
        objStream.Close()
    End Sub
 
 
<?xml version="1.0" encoding="utf-8"?>
<clsKunde xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" _
  xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <item>
    <ort>6</ort>
    <infopost>Falsch</infopost>
    <plz>4</plz>
    <strasse>3</strasse>
    <vorname>1</vorname>
    <zuname>2</zuname>
    <geschlecht>Herr</geschlecht>
  </item>
</clsKunde>