Sub App_Start
AddObject("emLStart", "dzEventsMagic")
AddObject("emLEnde", "dzEventsMagic")
AddObject("emLDauer", "dzEventsMagic")
emLStart.New1("lStartTime", False)
emLEnde.New1("lEndeTime", False)
emLDauer.New1("lDauer", False)
emLStart.Hook(514)
emLEnde.Hook(514)
emLDauer.Hook(514)
AddEvent("emLStart",MagicEvent,"emTimeSelect_Magic")
AddEvent("emLEnde",MagicEvent,"emTimeSelect_Magic")
AddEvent("emLDauer",MagicEvent,"emTimeSelect_Magic")
fEdit.Show
End Sub
Sub emTimeSelect_Magic
Msgbox(Sender)
End Sub