Sub Process_Globals
Dim MinuteTimer As Timer
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MinuteTimer.Initialize("MinuteTimer", 123) 'arbitrary short initial timer period, to get clock initially displayed
MinuteTimer.Enabled = True
End Sub
Sub MinuteTimer_Tick
DateTime.TimeFormat = "HH:mm:ss.SSS"
Log(DateTime.Time(DateTime.Now))
MinuteTimer.Enabled = False
MinuteTimer.Interval = 60000 - (DateTime.Now Mod 60000) 'number of ms until next minute rollover
MinuteTimer.Enabled = True
End Sub