StickToCursor Method Example

The following example creates a Rectangle object and specifies that the object stick to the cursor upon creation.

Dim iRect As Object

Set iRect = Application.ActiveDocument.Page.BuildObject("rect")

iRect.HorizontalPosition = 3#

iRect.VerticalPosition = 3#

iRect.StickToCursor