Dim lst As New List(Of MyDataStruct)
        'Hinzufügen
        lst.Add(New MyDataStruct("test1A", "test1B"))
        lst.Add(New MyDataStruct("test2A", "test2B"))
 
        'Abrufen
        Dim feld00 As String = lst(0).FeldA
 
        'Entfernen
        lst.RemoveAt(0)

    Public Structure MyDataStruct
        Public FeldA As String
        Public FeldB As String
        Public Sub New(ByVal a As String, ByVal b As String)
            Me.FeldA = a
            Me.FeldB = b
        End Sub
    End Structure