Public Class Perro
 
    Private _Nombre As String
    Private _Raza As String
 
    Public Sub New()
        _Nombre = ""
        _Raza = ""
    End Sub
 
    Public Property Nombre() As String
        Get
            Return Me._Nombre
        End Get
        Set(ByVal value As String)
            Me._Nombre = value
        End Set
    End Property
 
    Public Property Raza() As String
        Get
            Return Me._Raza
        End Get
        Set(ByVal value As String)
            Me._Raza = value
        End Set
    End Property
End Class

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim vListaPerros As New List(Of Perro)
 
        Dim vPerro1 As New Perro
 
        vPerro1.Nombre = "cachito 1"
        vPerro1.Raza = "mestiza 1"
        vListaPerros.Add(vPerro1)
 
        Dim vPerro2 As New Perro
 
        vPerro2.Nombre = "cachito 2"
        vPerro2.Raza = "mestiza 2"
        vListaPerros.Add(vPerro2)
 
        Dim vPerro3 As New Perro
 
        vPerro3.Nombre = "cachito 3"
        vPerro3.Raza = "mestiza 3"
        vListaPerros.Add(vPerro3)
 
        For Each perrito As Perro In vListaPerros
            Debug.WriteLine("Nombre del Perro: " & perrito.Nombre)
            Debug.WriteLine("Raza del Perro: " & perrito.Raza)
        Next perrito
 
    End Sub
End Class