GefMoveAnimAttrib.IsVertical (read-only property)

Gets whether these attributes apply to the vertical move animation.

Syntax:

Boolean = object.IsVertical

Description:

The IsVertical property identifies if there is a vertical move animation.

Example:

Function MoveAnimAttrib_Type(ByRef oCimMoveAnimAttrib As
GefMoveAnimAttrib)

    Dim nMax As Long
    Dim oCimScr As GefScreen

    Set oCimScr = CimGetScreen

    If oCimMoveAnimAttrib.IsHorizontal =
True Then

        nMax =
oCimScr.Height - 100 * 20

End If

    If oCimMoveAnimAttrib.IsVertical =
True Then

        nMax =
oCimScr.Width - 100 * 20

End If

    oCimMoveAnimAttrib.MaxTranslation =
nMax

End Function

Sub MoveAnimAttrib()

    Dim oCimObj As GefObject

    Dim oCimMoveAnim As
GefMoveAnim

Set oCimObj = CimGetObject

    Set oCimMoveAnim =
oCimObj.MoveAnim

    Call
MoveAnimAttrib_Type(oCimMoveAnim.VerticalAttrib)

End Sub