In diesem Beispiel wird die Property Set-Anweisung verwendet, um eine Eigenschaftsprozedur zu definieren, die einen Verweis auf ein Objekt festlegt.
' Die Pen-Eigenschaft kann auf verschiedene Implementierungen des
' Stiftes festgelegt werden.
Property Set Pen(S As Object)
Set AktStift = S ' Dem Objekt wird der Stift
' zugewiesen.
End Property