VB.NET  •  Build the Employee Base Class

Listing 1. The Employee class forms the basis for both the EmployeeCollection class and the derived Employee classes—CEO, Secretary, and Programmer.

Public MustInherit Class Employee
   Public Property Name() As String
      Get
         Return _name
      End Get
      Set(ByVal Value As String)
         _name = Value
      End Set
   End Property
   Public Property Salary() As Double
      Get
         Return _salary
      End Get
      Set(ByVal Value As Double)
         _salary = Value
      End Set
   End Property
   Private _name As String
   Private _salary As Double
End Class