guarda se va

codice:
Option Strict On

Module Module1

    Sub Main(args As String())
        Dim ListaAutomobili As New List(Of Automobili)

        ListaAutomobili.Add(New Automobili("Mercedes", True))
        ListaAutomobili.Add(New Automobili("Panda", False))

        For Each automobile As Automobili In ListaAutomobili
            Console.WriteLine("Automobile: {0}, Decapotabilità: {1}", automobile.Nome, automobile.Decapotabilita)
        Next





        Console.Write("Premere un tasto per continuare . . . ") : Console.ReadKey()
    End Sub


End Module


Class Automobili
    Public Property Nome As String
    Public Property Decapotabilita As Boolean

    Public Sub New(nome As String, decapotabilita As Boolean)
        Me.Nome = nome
        Me.Decapotabilita = decapotabilita
    End Sub
End Class