'B4J code was just
Sub CountUp
Dim StartTime As Long = DateTime.Now
For i = 0 To 100000
Label1.Text = i
Sleep(0)
Next
Label2.Text = $"Time elapsed = ${NumberFormat2((DateTime.Now - StartTime) / 1000, 1, 2, 2, False)} seconds"$
Log($"Time elapsed = ${NumberFormat2((DateTime.Now - StartTime) / 1000, 1, 2, 2, False)} seconds"$)
End Sub