ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.VisualStudio.v80.cht/dv_vbalr/html/3155edaf-8ebd-45c6-9cef-11d5d2dc8d38.htm
Class Class1
'Define a local variable to store the property value.
Private propertyValue As String
'Define the property.
Public Property prop1() As String
Get
'The Get property procedure is called when the value
'of a property is retrieved.
Return propertyValue
End Get
Set(ByVal value As String)
'The Set property procedure is called when the value
'of a property is modified. The value to be assigned
'is passed in the argument to Set.
propertyValue = value
End Set
End Property
End Class
