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