Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Dim lbl As Label
lbl.initialize("")
Dim lblx As B4XView = lbl
lblx.Font = xui.CreateFont(Typeface.MONOSPACE, 25)
lblx.SetColorAndBorder(xui.Color_White, 1dip, xui.Color_Black, 5dip)
lblx.SetTextAlignment("CENTER", "RIGHT")
Dim fw As Float = 500dip
Dim fh As Float = 100dip
Root.AddView(lblx, Root.Width / 2 - fw /2, Root.Height / 2 - fh / 2, fw, fh)
For i = 0 To 10000
Dim mins As Int = Rnd(0, 60)
Dim secs As Int = Rnd(0, 60)
lblx.Text = NumberFormat2(mins, 0, 0 ,0, False) & ":" & NumberFormat2(secs, 2, 0 ,0, False) & " " 'note padding to right
Sleep(1000)
Next
End Sub