Imports System

Imports System.Collections.Generic

​

Public Module Module1

    Public Sub Main()

        dim produtos as new List(of Produto)

        For x as integer = 0 to 1000 

            For y as integer = 0 to 3

                produtos.Add(new Produto("Produto" & x, y))

            Next

        Next

​

        For x as integer = 0 to produtos.Count-1

            Console.WriteLine(produtos(x).Nome & " - " & produtos(x).CorDoProduto.ToString())       

        Next

​

    End Sub

    public Enum Cor

        Branco = 0 

        Preto =1 

        Azul = 2

        verde = 3

    End enum

    Public Class Produto

​

        public Sub new(nome as string, cor as Cor)  

            _Nome = nome

            _CorDoProduto = cor

        end sub

        Property Nome as String

        Property CorDoProduto as Cor

    End class

End Module