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