Public Class Employee
   Private mName As String
   Private mRate As Double
   Private mHours As Double

   Public Property Name() As String
      Get
         Return mName
      End Get
      Set(ByVal Value As String)
         mName = Value
      End Set
   End Property

   Public Property Rate() As Double
      Get
         Return mRate
      End Get
      Set(ByVal Value As Double)
         mRate = Value
      End Set
   End Property

   Public Property Hours() As Double
      Get
         Return mHours
      End Get
      Set(ByVal Value As Double)
         mHours = Value
      End Set
   End Property
End Class