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

[oh1mie]

Make Array for your label like a lbl(0) -> lbl(10) then there is less code

Public Sub ChangeLabelColor(index As Integer)
 
    With lbl(index)
    .Caption = 1
    .BackColor = RGB(44, 164, 214)
    .ForeColor = RGB(255, 255, 255)
    End With
 
End Sub