GefExprListAnimElement.Text (property)

Gets the text string that will be for the object.
Syntax: String = object.Text
object.Text = String
Description: The Text property sets the text for the text animation.


Sub ExprListAnimElement_AnimatesText()
    Dim oCimExprListAnim As GefExprListAnim
    Dim oCimExprListAnimElmt As GefExprListAnimElement
    Set oCimExprListAnim = CimGetObject.ExprListAnim
    Set oCimExprListAnimElmt = oCimExprListAnim.Add
    If Not oCimExprListAnimElmt Is Nothing Then
        oCimExprListAnimElmt.Expression = "1"
        oCimExprListAnimElmt.AnimatesText = "1"
        oCimExprListAnimElmt.Text = "Animated text"
    End If
    CimGetScreen.Refresh False
End Sub