' Meine Daten
    Public Class MyData
        Public Property Name As String
        Public Property TheData As String
    End Class
 
    ' Meine Collection
    Public Class MyCollection
        Inherits System.Collections.ObjectModel.KeyedCollection(Of String, _
          MyData)
        Protected Overrides Function GetKeyForItem(ByVal item As MyData) As _
        String
            Return item.Name
        End Function
    End Class
 
    Private Sub Test()
        Dim mc1 As New MyCollection
 
        mc1.Add(New MyData With {.Name = "Fred", .TheData = "Do important" & _
          "stuff"})
        mc1.Add(New MyData With {.Name = "Ginger", .TheData = "Get black hair" & _
        "dye"})
 
        Dim md As MyData = mc1("Fred")
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist