UserForm Controls Collection

[Guest]

Is there a way to "capture" all of the controls on a form that are of a
certain type. for example. Change the forecolor of all labels to Blue.

with my naming conventions i could probably do this with some kind of loop
since all my labels' names start with "lab", but i dont know how to identify
them in the controls collection as a specific type of control.

 

[RB Smissaert]

Dim Ctl As MSForms.Control

For Each Ctl In Form1.Controls
If TypeName(Ctl) = "Label" Then
'control code here
End If
Next Ctl

RBS

 

[Tom Ogilvy]

Another way:

Dim Ctl As MSForms.Control

For Each Ctl In Userform1.Controls
If TypeOf Ctl is MsForms.Label Then
'control code here
msgbox Ctl.name
End If
Next Ctl


Your original suggestion

for i = 0 to Userform1.controls.count - 1
if instr(1, me.Controls(i).name, "lab", vbTextCompare) = 1 then
msgbox me.controls(i).name
end if
Next