Imports Microsoft.VisualBasic

Public Class Car
    Private _cartype As String
    Private _age As Integer

    Public Sub New(ByVal t As String, ByVal a As Integer)
        _cartype = t
        _age = a
    End Sub

    Public Property CarType() As String
        Get
            Return _cartype
        End Get
        Set(ByVal t As String)
            _cartype = t
        End Set
    End Property

    Public Property CarAge() As Integer
        Get
            Return _age
        End Get
        Set(ByVal a As Integer)
            _age = a
        End Set
    End Property

End Class