Tarea 2 class persona (clase heredada)

Public Class Persona
Private m_nombre As String
Private m_domicilio As String
Private m_FechaNac As Date
Private m_Telefono As String

Public Property nombre() As String
Get
Return m_nombre
End Get
Set(ByVal Value As String)
m_nombre = Value
End Set
End Property

Public Property domicilio() As String
Get
Return m_domicilio
End Get
Set(ByVal Value As String)
m_domicilio = Value
End Set
End Property

Public Property FechaNac() As Date
Get
Return m_FechaNac
End Get
Set(ByVal Value As Date)
m_FechaNac = Value
End Set
End Property

Public Property Telefono() As String
Get
Return m_Telefono
End Get
Set(ByVal Value As String)
m_Telefono = Value
End Set
End Property
End Class