Code it better[Resolved]

Can anyone code this better ,ive seen code so small yet do so much ,a present i carnt get my head around,all im looking to do here is to change label colors at a click of a button .this works but it seems to big and i have hundreds to do .

Thanks Paul

Private Sub Command2_Click()
Label6.ForeColor = vbGreen
Label7.ForeColor = vbGreen
Label4.ForeColor = vbBlack
Label5.ForeColor = vbBlack
Label8.ForeColor = vbBlack
Label12.ForeColor = vbBlack
Label13.ForeColor = vbBlack
Label14.ForeColor = vbBlack
Label15.ForeColor = vbBlack

Label10.ForeColor = vBlack
Label11.ForeColor = vBlack
Label9.ForeColor = vbBlack

Label16.ForeColor = vbBlack
Label17.ForeColor = vbBlack
Label18.ForeColor = vbBlack
Label19.ForeColor = vbBlack

End Sub

Seems like you need to use control arrays - not "fixed named" labels...

If control arrays is quicker and better then yes thats what i need lol, now what are they then can you show me please..?

Thanks

Say you have 20 labels in groups of 5 (the groups all are similar labels). Set the index property in each group so there is a 0,1,2,3, and 4, and make them all have the same name. Then you have a GreenLabel(0), GreenLabel(1),.... RedLabel(4),RedLabel(5). Then be like:

VB Code:

For I = 0 to 4
RedLabel(I).BackColor = vbRed
GreenLabel(I).BackColor = vbGreen
'...etc
Next I

Now thats what am talkin about ..job done

Thanks xjake88x