Dim MyTimer As Timer 'in Process_Globals
MyTimer.Initialize("MyTimer", 1000 * 60) 'in Activity_Create update every minute or whatever
Sub Activity_Resume
MyTimer.Enabled=True
End Sub
Sub Activity_Pause (UserClosed AsBoolean)
MyTimer.Enabled=False
End Sub
Sub MyTimer_Tick
Activity.Title=DateTime.Date(DateTime.Now) & " " & DateTime.Time(DateTime.Now)
End Sub