Sub Globals
Private CircularProgressBar1 As CircularProgressBar
End Sub
Sub CreateListItemCircularProgressBar(text As String, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
p.SetLayout(0, 0, Width, Height)
p.LoadLayout("itemCircularProgressBar")
p.Color = Colors.White
Dim lbl1 As Label = p.GetView(0)
Dim lbl2 As Label = p.GetView(1)
lbl1.Text = text
lbl2.Text = text
CircularProgressBar1.mBase.Tag = CircularProgressBar1
Return p
End Sub
Sub Activity_Resume
Dim Index As Int 'Index you want to change
Dim p As Panel = CLV.GetPanel(Index)
Dim circular As CircularProgressBar = p.GetView(2).Tag
circular.Value = Rnd(0,101)
End Sub