[RESOLVED] Condense code...

[RhinoBull]

You can loop through control array (sample below) or controls collection (if you don't have control array):

Dim i%
 
On Error Resume Next
 
For i = Frame.Lbound To Frame.Ubound
    Frame(i).BackColor = vbBlue
    Frame(i).ForeColor = vbWhite
Next i

[BrailleSchool]

You can loop through control array (sample below) or controls collection (if you don't have control array):

Dim i%
 
On Error Resume Next
 
For i = Frame.Lbound To Frame.Ubound
    Frame(i).BackColor = vbBlue
    Frame(i).ForeColor = vbWhite
Next i

thanks for the sample Rhino. % is the same as a long right?

[RhinoBull]

thanks for the sample Rhino. % is the same as a long right?

You're welcome.
% is a shortcut for Integer. When it comes to Control Arrays - Integer type is more than enough.

[BrailleSchool]

You're welcome.
% is a shortcut for Integer. When it comes to Control Arrays - Integer type is more than enough.

Learn something new every day! love shortcuts. will have to go to MSDN online to see if i can read up about this stuff. would rather type on char instead of the whole darned thing.

[RhinoBull]

Learn something new every day! love shortcuts. will have to go to MSDN online to see if i can read up about this stuff. would rather type on char instead of the whole darned thing.

LOL... I wouldn't recommend to use it too often - only "old timers" may recognize these symbols - all "new commers" will get lost and frustrated, though.

[BrailleSchool]

LOL... I wouldn't recommend to use it too often - only "old timers" may recognize these symbols - all "new commers" will get lost and frustrated, though.

i would rather be an "old timer" than wear my keyboard out lol. anyway, i am old, im almos 30. lol.

[RhinoBull]

Yea, sounds like old and it's OK with me. Use TypeName() if you ever need to find type of your variable (see sample code in one of my previous posts).