|
ED
|
not used
|
RT
|
avaliable
|
This Event is fired when an alarm has been gone.
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_AlarmGoes(ByVal obItem As IAlarmItem) Debug.Print obItem.Text End Sub