sub Process_Globals
Dim RefreshTimer As Timer
...
Sub Activity_Create(FirstTime As Boolean)
RefreshTimer.Initialize("RefreshTimer", 200)
...
Sub Activity_Resume
RefreshTimer.Enabled = True
...
Sub Activity_Pause (UserClosed As Boolean)
RefreshTimer.Enabled = False
...
Sub RefreshTimer_Tick
If Starter.RefreshFlag Then
NumAdsLabel.Text = Starter.NumAds
DeviceIdLabel.Text = Starter.DeviceId
DeviceNameLabel.Text = Starter.DeviceName
DeviceRSSILabel.Text = NumberFormat2(Starter.DeviceRSSI, 1, 1, 1, False)
Starter.RefreshFlag = False
End If
End Sub