GefObject.RotateAroundPoint (method)

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

Example:

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