Imports System

Imports System.Collections.Generic

​

Namespace Animal

​

Public Class Perro

​

    Public Edad as Integer

    Public Color as string

​

    Sub Ladrar()

        Console.Writeline ("El perro está ladrando")

    End Sub

End Class

​

End Namespace

​

​

​

Public Module modMain

​

   Sub Main()

​

    Dim Coleccion as new List(Of Animal.Perro)

    Dim perro as New Animal.Perro

​

    perro.Edad =10

    perro.Color="Marrón"

​

    Coleccion.Add(perro)

​

    perro = New Animal.Perro

    perro.Edad=2

    perro.Color = "Blanco"

    Coleccion.Add(perro)

​

    Dim contador as Integer = 0

    While contador < Coleccion.Count

        Console.WriteLine(Coleccion.Item(contador).Color)

        contador=contador +1

    End While

​

    For Each perro in Coleccion

        Console.WriteLine(perro.Edad)

    Next

End Sub     

End Module

​

​