Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Gambas class file
- Property documento As Integer
- Private hdocumento As Integer
- Property nombre As String
- Private hnombre As String
- Private Function nombre_Read() As String
- Return hnombre
- End
- Private Sub nombre_Write(Value As String)
- hnombre = value
- End
- Private Function documento_Read() As Integer
- Return hdocumento
- End
- Private Sub documento_Write(Value As Integer)
- hdocumento = value
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement