TTimer objects (retruned by CreateTimer) fire off events, so should break "WaitEvent"
SuperStrict
Graphics 32,32
Local myTimer:TTImer = CreateTimer(1)
While EventID() <> EVENT_KEYDOWN
WaitEvent
If EventID() = EVENT_TIMERTICK
Print "Timer has ticked " + TimerTicks(myTimer) + " times"
EndIf
EndWhile