Combobox array

Bære over med mig, hvis dette er et banalt spørgsmål, men jeg det er mange år siden jeg sidste har prog. i VB6.

Jeg har en række comboboxe i et array, der skal fyldes med de samme items, når siden får focus.

Jeg er kommet så langt at jeg får en fejl fordi Combocontrol ikke er et array, men hvordan løser jeg denne ?



    Dim comboControl As ComboBox
    Dim i As Integer
    Dim strFilnavn As String

Private Sub sTabAI()

strFilnavn = "filnavn"
Set comboControl = cboAIEnhedstype(i)

For i = 0 To 1

    comboControl = cboAIEnhedstype(i)
   
    Call pHent(strFilnavn, comboControl)

Next i

End Sub