Private myDogs As List(Of Dog)
 
    Public Sub LoadDogs()
        Dim rassen As String() = {"Dackel", "Pudel", "Windhund"}
 
        myDogs = New List(Of Dog)
 
        For Each rasse In rassen
            myDogs.Add(New Dog(rasse))
        Next
    End Sub
 
    Public Class Dog
 
        Public Sub New(ByVal rasseName As String)
            _Rasse = rasseName
        End Sub
 
        Property Rasse As String
    End Class