GefObject.VisibilityAnim (read-only property)

Gets the GefVisibililtyAnim
Syntax: Set GefVisibilityAnim = object.VisibilityAnim
Description: Returns Nothing if this property is not valid for the object.


Sub GefObject_VisibilityAnim()
    Dim oCimObj As GefObject
    Dim oCimVisAnim As GefVisibilityAnim
    Dim strExp As String
    Set oCimObj = CimGetObject
    Set oCimVisAnim = oCimObj.VisibilityAnim
    If Not oCimVisAnim Is Nothing Then
        strExp = oCimVisAnim.Expression
        If strExp <> "" Then
            MsgBox "The visibility animation's " & _
                "expression is " & """" & strExp & """"
            MsgBox "This object does not have a " & _
                "visibility animation"
        End If
    End If
End Sub