VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Employee"
Attribute VB_Creatable = True
Attribute VB_Exposed = True
Public Age As Integer
Public Name As String
Public Weight As Integer
Public Grade As Integer
Public SSNum As String

Public Function AddPounds(Pounds As Integer) As Boolean
Attribute AddPounds.VB_Description = "Adjust the employee's weight"
    Weight = Weight + Pounds
    AddPounds = True
End Function

Property Get Kilos() As Integer
    Kilos = Weight / 2.4
End Property

Property Let Kilos(Kilos As Integer)
    Weight = Kilos * 2.4
End Property

