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.


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"
        MsgBox "This object does support alarm animation"
    End If
End Sub