...
Sub Process_Globals
...
Public DataCollectionTimer As Timer
...
End Sub
Public Sub Initialize
...
DataCollectionTimer.Initialize("DataCollectionTimer", 5000)
DataCollectionTimer.Enabled = True
...
End Sub
Sub DataCollectionTimer_Tick
For Each clt As ABMPageTest In Main.ConnectedBrowsers.Keys
CallSubDelayed3(clt, "updatepage", Value,DateTime.Time(DateTime.Now))
Next
End Sub