<Serializable()> _
Public Class clsItem
    Private myName As String
    Private myQuality As String
    Private myData As New List(Of String)
    Private myRAWData As New Dictionary(Of String, String)
    ....
 
    Public Shared Items As List(Of clsItem)
 
    Private Shared dataPath As String = _
    Path.Combine(Application.StartupPath, "Items.dat")
 
    Public Sub New()
        ' Erstellen einer neuen, leeren List(Of T)
        Items = New List(Of clsItem)
    End Sub
 
    Public Sub Save()
        ' Aufrufen der generischen Serialize-Funktion für 
        ' die Klasse Kontoverwaltung
        Serializer.Serialize(Of clsItem)(dataPath, Me)
    End Sub
 
    Public Shared Function Load() As clsItem
        ' Dadurch, dass die Klasse "Sub New()" aufweist, kann die 
        ' Serializer-Klasse, wenn keine Datei vorhanden ist, 
        ' eine DefaultInstance zurückgeben.
        Return Serializer.DeSerialize(Of clsItem)(dataPath)
    End Function
 
 
   Public Property Name() As String
        Get
            Return myName
        End Get
        Set(ByVal value As String)
            myName = value
        End Set
    End Property
 
    ......