|
ED
|
not used
|
RT
|
avaliable
|
This Event is fired when an alarm was acknowledged by a
user.
To get these Event, an Object has to be declared and
initialised
Dim WithEvents zAlarm As Alarm Private Sub Project_Active() Set zAlarm = thisProject.Alarm End Sub Private Sub zAlarm_AlarmAcknowledged(ByVal obItem As IAlarmItem) Debug.Print obItem.Text End Sub