Imports System
Imports System.Xml.Serialization
Imports System.IO
 
Public Class Teilnehmer
    Public tnrNummer As Integer
    Public Person As String
    Public Punkte As Single
End Class
 
Public Class Kurs
    Public Tnliste As String = "D:\xmlKursTeilnehmer.xml"
 
    Public Shared Sub Main()
        Dim xt As New Kurs
        Dim p As New Teilnehmer
        p.tnrNummer = "1001"
        p.Person = "Maximilian"
        p.Punkte = "90"
 
        'Wie bekomme ich 2 weitere Personen dazu? Hier liegt jetzt noch mein 
       ' Problem[u]
        xt.xmlSpeichern(p)
 
 
        Dim p1 As Teilnehmer
        p1 = xt.xmlLesen
        Console.WriteLine("{0,15}{1,8}{2,15}", "Tnr", "Name", "Punkte")
        Console.WriteLine("{0,16}{1,13}{2,5}", p.tnrNummer, p.Person, p.Punkte)
 
        Console.ReadLine()
    End Sub
 
    Private Sub xmlSpeichern(ByVal p As Teilnehmer)
        Dim meineSerialisierer As New XmlSerializer(GetType(Teilnehmer))
        Dim sw As New StreamWriter(Tnliste)
        meineSerialisierer.Serialize(sw, p)
        sw.Close()
    End Sub
 
    Private Function xmlLesen() As Teilnehmer
        Dim meineSerialisierer As New XmlSerializer(GetType(Teilnehmer))
        Dim sr As New StreamReader(Tnliste)
        Dim p As Teilnehmer
        p = meineSerialisierer.Deserialize(sr)
        sr.Close()
        Return p
    End Function
End Class

MFG Gizmo