Example - Timer Event

Sub Main()
   Dim TS As Single
   Dim TE As Single
   Dim TEL As Single
   TS = Timer
   MsgBox "Starting Timer"
   TE = Timer
   TT = TE - TS
   MsgBox "Total time: " & TT
End Sub