Sub thread2_start
Dim args(0) As Object
If TestRunningTime.Running Then
TestRunningTime.Interrupt
End If
If TestRunningTime.IsInitialized Then
TestRunningTimeLock.Initialize(True)
TestRunningTime.Name = "B4A Thread 2"
TestRunningTime.Start(Null,"thread2Start", args)
End If
End Sub
Sub thread2Start
Dim args(0) As Object
Do While SubDown
Log("thread2Start")
TestRunningTime.Sleep(2000)
Loop
' TestRunningTime.RunOnGuiThread("Update2",args)
End Sub