|
ED
|
not used
|
RT
|
avaliable
|
Returns the alarm-items objects, Event is fired when an Alarm
comes up...
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_AlarmComes(ByVal obItem As IAlarmItem) Debug.Print obItem.Text End Sub