Dim s1 As New Schiff("Adler von Lübeck", "Lübeck", 1565)
        Dim s2 As New Schiff("Albatros", "Rostock", 1864)
        Dim s3 As New Schiff("Ubena von Bremen", "Bremen", 1380)
 
        Dim SL As New SortedList
        SL.Add(s1.Name, s1)
        SL.Add(s2.Name, s2)
        SL.Add(s3.Name, s3)
 
        Dim AL As New ArrayList
        AL.Add(SL.GetByIndex(0))
        AL.Add(SL.GetByIndex(1))
        AL.Add(SL.GetByIndex(2))
 
        MsgBox(AL.Item(0).Baujahr & " " & SL.Item(AL.Item(0).Name).Baujahr)
        AL.Item(0).Baujahr = 1570
        MsgBox(AL.Item(0).Baujahr & " " & SL.Item(AL.Item(0).Name).Baujahr)

<Serializable()> Public Class Schiff
    Public Name As String
    Public Heimathafen As String
    Public Baujahr As Integer
    Public Sub New(ByVal Name As String, ByVal Heimathafen As String, ByVal _
      Baujahr As Integer)
        Me.Name = Name
        Me.Heimathafen = Heimathafen
        Me.Baujahr = Baujahr
    End Sub
    Public Sub New()
    End Sub
End Class