GefMoveAnimAttrib.MinExprValue (property)

Gets and sets the minimum value used in expression based animations.
Syntax: VARIANT = object.MinExprValue
object.MinExprValue = VARIANT
Description: In expression based animations, when the expression reaches this minimum value, the object is at its original location.


Sub MoveAnimAttrib_MinExprValue()
    Dim oCimObj As GefObject
    Dim oCimMoveAnim As GefMoveAnim
    Dim oCimMoveAnimAttrib As GefMoveAnimAttrib
    Set oCimObj = CimGetObject
    Set oCimMoveAnim = oCimObj.MoveAnim
    If Not oCimMoveAnim Is Nothing Then
        Set oCimMoveAnimAttrib = oCimMoveAnim.HorizontalAttrib
        If Not oCimMoveAnimAttrib Is Nothing Then
            MsgBox "The min value is " & _
        End If
    End If
End Sub