Trying to pass a control array of text boxes to a sub where I can do work on it.

The form has a text1 textbox control array on it

Public Sub form_load()

Dim i As Integer

For i = 1 To 5
Load frmMain.Text1(i)
frmMain.Text1(i).Top = frmMain.Text1(i - 1).Top + 50
frmMain.Text1(i).Visible = True
Next i

InsertValues(Text1) '????

end sub




Public Sub InsertValues(theControl as ??)


dim i as integer

for i = 0 to 5
theControl(i).text = 100
next i


end sub

I keep getting arguement not optional no matter what I try. Help????