home *** CD-ROM | disk | FTP | other *** search
/ Troubleshooting Netware Systems / CSTRIAL0196.BIN / attach / msj / v10n10 / vb40.exe / EMPLOYNN.EXE / EMPLOYEE.CLS < prev    next >
Text File  |  1995-10-01  |  619b  |  28 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "Employee"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. Public Age As Integer
  9. Public Name As String
  10. Public Weight As Integer
  11. Public Grade As Integer
  12. Public SSNum As String
  13.  
  14. Public Function AddPounds(Pounds As Integer) As Boolean
  15. Attribute AddPounds.VB_Description = "Adjust the employee's weight"
  16.     Weight = Weight + Pounds
  17.     AddPounds = True
  18. End Function
  19.  
  20. Property Get Kilos() As Integer
  21.     Kilos = Weight / 2.4
  22. End Property
  23.  
  24. Property Let Kilos(Kilos As Integer)
  25.     Weight = Kilos * 2.4
  26. End Property
  27.  
  28.