Sub Globals
Private ProgressBar1 As ProgressBar
Private RndPb As Button
Dim apb As AnimateProgressBar
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
End Sub
Sub RndPb_Click
apb.SetProgressAnimated(ProgressBar1,Rnd(0,101))
End Sub