Public Class Child
    Inherits Person

    Private _bornDate As Date
    Public Property bornDate() As Date
        Get
            Return _bornDate
        End Get
        Set(ByVal value As Date)
            _bornDate = value
        End Set
    End Property

    Private _parent1 As Parent
    Public Property parent1() As Parent
        Get
            Return _parent1
        End Get
        Set(ByVal value As Parent)
            _parent1 = value
        End Set
    End Property

    Private _parent2 As Parent
    Public Property parent2() As Parent
        Get
            Return _parent2
        End Get
        Set(ByVal value As Parent)
            _parent2 = value
        End Set
    End Property

    Private _meet As Meet
    Public Property meet() As Meet
        Get
            Return _meet
        End Get
        Set(ByVal value As Meet)
            _meet = 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, address As String, born As Date, meet As Meet, Optional parent1 As Parent = Nothing, Optional parent2 As Parent = Nothing)
        MyBase.New(id, fname, lname, gender, address)
        Me.bornDate = born
        Me.meet = meet
        Me.parent1 = parent1
        Me.parent2 = parent2
    End Sub

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

End Class