GefObject.AlarmStateColorAnim (read-only property)

Gets the GefAlarmStateColorAnim for the object.

Syntax:

Set GefAlarmStateColorAnim = object.AlarmStateColorAnim

Description:

Returns Nothing if this property is not valid for the object.

Example:

Sub GefObject_AlarmStateColorAnim()

Dim oCimObj As GefObject

    Dim oAlrmStateAnim As
GefAlarmStateColorAnimation

Set oCimObj = CimGetObject

    Set oAlrmStateAnim =
oCimObj.AlarmStateColorAnim

    If oAlrmStateAnim Is Nothing
Then

        MsgBox "This
object does not support alarm animation"

Else

        MsgBox "This
object does support alarm animation"

End If

End Sub