Imports System.Collections.ObjectModel
Imports System.Xml.Serialization
Imports System.IO
 
<Serializable()>
Public Class Erinnerungsliste
    Inherits List(Of ErinnerungsBasis)
 
    Sub New()
        MyBase.New()
    End Sub
 
    Sub XMLSerialize(ByVal Dateiname As String)
        Dim locXmlWriter As New XmlSerializer(GetType(Erinnerungsliste))
        Dim locXmlDatei As New StreamWriter(Dateiname)
        locXmlWriter.Serialize(locXmlDatei, Me)
        locXmlDatei.Flush()
        locXmlDatei.Close()
        Debug.Print("Serialisiert")
    End Sub
 
 
    Public Shared Function XmlDeserialize(ByVal Dateiname As String) As _
      Erinnerungsliste
        Dim locXmlLeser As New XmlSerializer(GetType(Erinnerungsliste))
        Dim locXmlDatei As New StreamReader(Dateiname)
        Return CType(locXmlLeser.Deserialize(locXmlDatei), Erinnerungsliste)
        Debug.Print("Deserialisiert")
    End Function
End Class
 
Public Class Erinnerung
    Inherits ErinnerungsBasis
 
    Sub New()
        MyBase.New()
    End Sub
 
End Class
 
Public Class Geburtstag
    Inherits ErinnerungsBasis
 
    Sub New()
        MyBase.new()
    End Sub
End Class
 
Public Class Form1
    Private locListe As New Erinnerungsliste
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
 
        locListe.Add(New Erinnerung With {.Erinnerungstext = "Erinnerung1", _
          .Erinnerungsdatum = #5/1/1985#})
        locListe.Add(New Geburtstag With {.Erinnerungstext = "Dominik", _
        .Erinnerungsdatum = #8/25/1985#})
 
    End Sub
End Class