Public Class Parent
    Inherits Person

    Private _phone As String
    Public Property phone() As String
        Get
            Return _phone
        End Get
        Set(ByVal value As String)
            _phone = value
        End Set
    End Property

    <Obsolete("This method is deprecated, use New with the id parameter insead")>
    Public Sub New(id As Integer, fname As String, lname As String, gender As Boolean, phone As String, address As String)
        MyBase.New(id, fname, lname, gender, address)
        Me.phone = phone
    End Sub

    Public Sub New(id As Integer)
        MyBase.New(id)
    End Sub

End Class