GefRotateAnim.MinAngle (property)

Gets and sets minimum angle of rotation in radians.
Syntax: VARIANT = object.MinAngle
object.MinAngle = VARIANT
Description: This is the angle the object will be rotated when the expression is at MinExprValue


Sub GefRotateAnim_MinAngle()
    Dim oCimObj As GefObject
    Dim oCimRotateAnim As GefRotateAnim
    Set oCimObj = CimGetObject
    Set oCimRotateAnim = oCimObj.RotateAnim
    If Not oCimRotateAnim Is Nothing Then
        MsgBox "The minimum angle for the rotation is " & _
            oCimRotateAnim.MinAngle & " radians"
    End If
End Sub