referencing forms controls

[AlbertYWang]

I have a series of labels on a form that I want to change the text
color on programatically.
If the label names are like 'label1', 'label2','label3', is there a a
way to loop through them?

Albert Wang

 

[Guest]

You can loop through them as members of the Controls collection

Dim ctl As Control

For Each ctl In Me.Controls

If ctl.Name = "Label2" Then
Me.Label2.ForeColor = vbRed
End If
Next ctl

 

[Tom Ogilvy]

some added info:

Dim ctl As Control

For Each ctl In Me.Controls
if typeof ctl is MSForms.Label then
Me.Label2.ForeColor = vbGreen
End If
Next ctl

or

for i = 1 to 5
me.controls("Label" & i).ForeColor = RGB(0,255,0)
Next

 

[AlbertYWang]

Thanks Kevin and Tom.
That's exactly what I needed.

Albert Wang