how-to-construct-new-object.vb

Private Class Person
    Private _name As String
    Public Property Name() As String
        Get
            Return _name
        End Get
        Set(ByVal value As String)
            _name = value
        End Set
    End Property

    Private _age As Integer
    Public Property Age() As Integer
        Get
            Return _age
        End Get
        Set(ByVal value As Integer)
            _age = value
        End Set
    End Property
End Class

Private Sub Method()
    Dim tsubaki As New Person() With _
        {.Name = "tsubaki", .Age = 26}

    Console.Write("My name is {0}. I'm {1}.", tsubaki.Name, tsubaki.Age)  ' My name is tsubaki. I'm 26.
End Sub