Dim neues_auto As New Class_auto
        neues_auto.spielnr = CInt(Me.TextBox4.Text)
        neues_auto.autonr = CInt(Me.TextBox1.Text)
        neues_auto.standort = New Point(Me.TextBox2.Text, Me.TextBox3.Text)
        neues_auto.farbe = Me.ColorDialog1.Color.Name
        neues_auto.laenge = CInt(Me.TextBox5.Text)
        neues_auto.breite = CInt(Me.TextBox6.Text)
        neues_auto.moverechts = Me.ComboBox1.SelectedItem
        neues_auto.movehoch = Me.ComboBox2.SelectedItem
 
        autoliste.Add(neues_auto)

 Dim serializer As New XmlSerializer(autoliste.GetType)
        Dim FSwriter As New StreamWriter("test.xml")
        serializer.Serialize(FSwriter, autoliste)
        FSwriter.Close()