GefObject.RotateAroundPoint (method)

Rotates the object the specified number of radians around the specified point.
Syntax: object.RotateAroundPoint Radians, X, Y
Radians As float -
X As long -
Y As long -
Description: The coordinates of the point are specified in TWIPS.


Sub GefObject_RotateAroundPoint()
    Dim oCimObj As GefObject
    Set oCimObj = CimGetObject
    oCimObj.RotateAroundPoint (pi / 4), 1 * 20, 1 * 20
    CimGetScreen.Refresh False
End Sub