Property Set Statement Example

This example uses the Property Set statement to define a property procedure that sets a reference to an object.

' The Pen property may be set to different Pen implementations.
Property Set Pen(P As Object)
    Set CurrentPen = P    ' Assign Pen to object.
End Property