Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        'nun ein Objekt erstellen für die Klasse Customer
        Dim custs As New Customers(True)
 
        ' XmlSerializer Object erstellen für die KLasse
        Dim ser As New XmlSerializer(custs.acust.GetType())
 
        ' Datei öffnen
        Dim fs As New FileStream("c:\customer.xml", FileMode.Create)
        'Das Object in den Stream serialisieren und schließen
        ser.Serialize(fs, custs.acust)
        fs.Close()
 
        'Stream nochmal öffnen
        Dim fs2 As New FileStream("c:\customer.xml", FileMode.Open)
        ' Deserialize die Datei in ein andere Customer Object und danach wieder 
        ' schließen
        Dim custs2 As New Customers(False)
 
        custs2.acust = CType(ser.Deserialize(fs2), Customer())
        fs2.Close()
        'Prüfe die Eigenschaften
        MsgBox(custs2.acust(0).Name & ", " & custs2.acust(0).City + vbCrLf + _
             (custs2.acust(1).Name & ", " & custs2.acust(1).City))
    End Sub