Public Class Person
    
    Private _firstName As String
    
    Private _lastName As String
    
    Private _age As String
    
    Public Sub New()
        MyBase.New
        
    End Sub
    
    Public Sub New(ByVal f As String, ByVal l As String, ByVal a As Integer)
        MyBase.New
        FirstName = f
        LastName = l
        Age = a
    End Sub
    
    Public Property FirstName As String
        Get
            Return _firstName
        End Get
        Set
            _firstName = value
        End Set
    End Property
    
    Public Property LastName As String
        Get
            Return _lastName
        End Get
        Set
            _lastName = value
        End Set
    End Property
    
    Public Property Age As Integer
        Get
            Return _age
        End Get
        Set
            _age = value
        End Set
    End Property
End Class
Public Class Employee
    
    Private _employeeID As String
    
    Public Sub New()
        MyBase.New
        
    End Sub
    
    Public Sub New(ByVal f As String, ByVal l As String, ByVal a As Integer, ByVal eID As String)
        MyBase.New(string, f, string, l, int, a)
        Me.FirstName = f
        Me.LastName = l
        Me.Age = a
        EmployeeID = eID
    End Sub
    
    Public Property EmployeeID As String
        Get
            Return _employeeID
        End Get
        Set
            _employeeID = value
        End Set
    End Property
End Class