[RESOLVED]How to make in this loop - please help me

[Tamgovb]

I'm not the best in explaining things. O.K. I will try
So, when I click the commandbutton COUNT, it my application it does one operation of calculation. Visible the progress bar on a screen shots it is registering progress executed calculations. Visible number shows how much operation was executed.
If I will click the commanbutton UNDO COUNT then will be withdrawal 1 operation, then recently segment should stopping shine.

And now, essence of matter

I make such code and I used statement Case, where I used variable as counter.

For button COUNT

Dim Lic As Integer
Select Case Lic
 
Case 0
 
    With lbl1
       .caption = 1
       .Backcolor = RGB ( 44, 164, 214)
       .Forecolor = RGB (255, 255, 255)
   End With
       Lic = 1
Case 1
 
    With lbl2
       .caption = 2
       .Backcolor = RGB ( 44, 164, 214)
       .Forecolor = RGB (255, 255, 255)
   End With
       Lic = 2
…….etc   until to lbl10.caption

(Truth, that this looks fatally)

Of course, for button UNDO COUNT the statement makes in reverse order

I want this to make from use in some loop ( better For...Next) and the array of objects (Label)
Just, I don't know how to make this.

P.S. Array of objects this is simply, I know how to make.

thx, in advance for every help