document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Property nombre As String
  4. Private hnombre As String
  5.  
  6. Property nivelAcceso As Integer
  7. Private hnivelAcceso As Integer
  8.  
  9. Private Function nombre_Read() As String
  10.  
  11.   Return hnombre
  12.  
  13. End
  14.  
  15. Private Sub nombre_Write(Value As String)
  16.  
  17.   hnombre = Value
  18.  
  19. End
  20.  
  21. Private Function nivelAcceso_Read() As Integer
  22.  
  23.   Return hnivelAcceso
  24.  
  25. End
  26.  
  27. Private Sub nivelAcceso_Write(Value As Integer)
  28.  
  29.   hnivelAcceso = Value
  30.  
  31. End
');