Public Class Person
Inherits System.Object
Public Name As String
Public Birthday As Date
End Class
Public Class Student
Inherits Person
Public Sub New(ByVal StudentName As String, ByVal BirthDate As Date)
MyBase.Name = StudentName
MyBase.Birthday = BirthDate
End Sub
Public StudentID
Public Overrides Function ToString() As String
Return (Me.Name)
End Function
End Class
|