VB Forum / COM / May 2004

Control arrays need to be passed as Object. If you start a new project,
create a control array of textboxes called Text1(0-n) and drop a command
button on the form, you'll see one way of doing it.
'===========
Option Explicit

Private Sub Command1_Click()
   Call SetColors(Text1)
End Sub

Private Sub SetColors(AControlArray As Object)
   Dim o As TextBox
   'Set the back color
   For Each o In AControlArray
      o.BackColor = RGB((Rnd * 127 + 128) _
         , (Rnd * 127 + 128), (Rnd * 127 + 128))
      o.ForeColor = RGB(Rnd * 127, Rnd * 127, Rnd * 127)
   Next
End Sub
'===========