Event in 'žDachprojekt'œ on alarm occurrence in an underlying project

Event in 'žDachprojekt'œ on alarm occurrence in an underlying project

Hello everybody!
Is there a way to get a VBA event in the “Dachprojekt” in case of alarm occurrence in one of the projects under the “Dachprojekt”.
Sample out of the help:
VBA Code:

Dim WithEvents zAlarm As Alarm
'procedure is executed on startup of the zenOn runtime
Private Sub Project_Active()
'init the alarm object for events
Set zAlarm = thisProject.Alarm
End Sub
'procedure is executed when an Alarm comes
Private Sub zAlarm_AlarmComes(ByVal obItem As IAlarmItem)
'print specific information to Debug window...
Debug.Print obItem.Timecomes & " > " & obItem.Text
End Sub
'procedure is executed on terminating the zenOn Runtime
Private Sub Project_Inactive()
'free the alarm object
Set zAlarm = Nothing
End Sub

The sample is only working for alarms of variable located in the “Dachprojekt” no event is created for alarms in the projects under the “Dachprojekt”
We need to know in the “Dachprojekt” information of the underlying projects:
What alarms are active, are they acknowledged. Event based reacting on this information in VBA of the Dachprojekt is needed.
The underlying projects can’t be changed since they are not in our hands we have to use them as they are.
Thanks for any input!
By the way "Dachprojekt" in english?
Regards,
H.-P.

This is a migrated post! Originally posted on 28.04.2008 by user hp. Please be aware that information can be outdated.