Private Sub FillCronoTimer(Timerlist As List, IsListChanged As Boolean)
Dim racetime1 As RaceProperty
Dim pnl As Panel
ShowProgressBar(True, 0)
For i = 0 To Timerlist.Size -1
'...
customlistview.Add(Timerlist.Get(i))
'...
ShowProgressBar(True, i / Timerlist.Size)
Sleep(0)
Log("Sleep=" & i)
Next
ColorAllPanel
ShowProgressBar(False, 0)
End Sub
Private Sub ShowProgressBar(Visible As Boolean, Value As Double)
pnlProgressBar.BringToFront
pnlProgressBar.Visible = Visible
lblProgress.Width = Value * (ProgressBar.Width - 2dip)
End Sub
Private Sub ColorAllPanel
Log("ColorAllPanel")
'...
End Sub