¿como pasar un arreglo o vector de controles como parámetro a una Sub o function en visual basic 6.0?

Una tarea habitual es la de poder pasar un arreglo o vector de controles como parámetro a una Sub o function.

Por ejemplo supongamos que tenemos un programa que tiene muchos formularios. y varios de esos formularios tienen una función que se encarga de limpiar todas los textBox y eliminar el contenido de los mismos

Para solucionar esto, y no tener que repetir código, podríamos crear en un módulo de código, una SubRutina para que la puedan utilizar y acceder desde todos los formularios.

Para poder pasar un vector como parámetro a una rutina, la variable o argumento en la Subrutina, debe estar declarada como de tipo Object

Ejemplo

Colocar en un formulario un arreglo de textBox, por ejemplo TextBox1(0), TextBox1(1) y TextBox1(2)

Colocar un CommandButton para limpiar el contenido de las cajas de texto

Código fuente en el formulario

Option Explicit

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


' Recibe el vector como parámetro
Sub Limpiar_TextBox(El_TextBox As Object)

Dim i As Integer

For i = 0 To El_TextBox.Count - 1
El_TextBox(i).Text = vbNullString
Next

End Sub