document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Property documento As Integer
  4. Private hdocumento As Integer
  5.  
  6. Property nombre As String
  7. Private hnombre As String
  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 documento_Read() As Integer
  22.  
  23.   Return hdocumento  
  24.  
  25. End
  26.  
  27. Private Sub documento_Write(Value As Integer)
  28.  
  29.   hdocumento = value
  30.  
  31. End
');