CimEMEvent.Type (property, read)

Syntax Event.Type
Description Integer. Returns the type of event that triggered the action. Valid values are:
EM_ALARM_GEN Alarm Generated
EM_ALARM_ACK Alarm Acknowledged
EM_ALARM_RST Alarm Reset
EM_ALARM_DEL Alarm Deleted
EM_POINT_CHANGE Point Changed
EM_POINT_UNAVAIL Point Unavailable
EM_POINT_EQUALS Point Equals
EM_POINT_UPDATE Point Updated
EM_POINT_TRANS_HIGH Point Transition to High
EM_POINT_TRANS_LOW Point Transition to Low
EM_TIMED Timed Event
EM_RUN_ONCE Run Once
EM_TRIGGERED Externally trigged by BCEUI or Action Calendar
Consult the Event Editor documentation for more details.
Example 
Sub Main()
   Dim event as CimEMEvent
   Set event = CimGetEMEvent()
   If event.Type = EM_ALARM_GEN then
       Dim alarmEvent as CimEMAlarmEvent
       Set AlarmEvent = event.AlarmEvent()
       ' Process the alarm
   End If
 
End Sub