Mega Code Archive

 

Categories / VB.Net Tutorial / Class Module

 

Inherits must be first line There can be only one

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