Imports System

Imports System.Collections

Imports System.Collections.Generic

​

Public Class Program

    Public Shared Sub Main()

        dim names As New List(Of Names)

        names.Add(New Names("Joaquim"))

        names.Add(New Names("Pedro", "Moraes"))

​

        names(0).LastName = "Barbosa"

​

        Console.WriteLine(names(0).FullName)

        Console.WriteLine(names(1).FullName)

    End Sub

End Class

​

Class Names

​

    Sub New(ByVal first As String)

        Me.m_FirstName = first

    End Sub

​

    Sub New(ByVal first As String, ByVal last As String)

        Me.m_FirstName = first

        Me.m_LastName = last

    End Sub

​

    Public Property FirstName() As String

        Get

            Return m_FirstName

        End Get

        Set

            m_FirstName = Value

        End Set

    End Property

    Private m_FirstName As String

    Public Property LastName() As String

        Get

            Return m_LastName

        End Get

        Set

            m_LastName = Value

        End Set

    End Property

    Private m_LastName As String

    Public ReadOnly Property FullName() As String

        Get

            Return Convert.ToString(FirstName & Convert.ToString(" ")) & LastName

        End Get

    End Property

End Class