Listado 1.9
Declaración de una propiedad
Public Class DatosEmpleado
Private strNombre As String
Public ReadOnly
Property Nombre( ) As String
Get
Return
strNombre
End Get
End Property
Private strNombre As String
Public WriteOnly
Property Nombre( ) As String
Set (ByVal
Value As String)
StrNombre =
Value
End Set
End Property
End Class