Montar nome de controles dinamicamente?

Eu sei que no JavaScript, JScript e VBScript eu consigo montar o nome de um
controle a partir da função Eval, exemplo:
Dim intI

For intI = 0 To 9
    Eval("lbl" & intI).bgColor = "#00FF0" & intI
Next

 

Mas já no VB, isto não dá certo, conforme eu tentei montar abaixo, dá erro
de invalid qualifier:

Dim intI As Integer

For intI = 0 To 15
    Val("lbl" & intI).BackColor = QBColor(intI)
Next

 

Existem possível solução para isto em VB 6?

tenta assim

 

Public Function Back(Formulario As Form) As Integer
    Dim i As Integer, strMenu As String
    For i = 0 To Formulario.Count - 1
        strMenu = Formulario(i).Name
        If Left(strMenu, 3) = "txt" Then
            Formulario(i).BackColor = vbRed  '"#00FF0" & i
        End If
    Next i
End Function

Marcelo,

 

Mas eu estou falando de montar o nome dinamicamente concatenando strings, sem usar índice, seria possível?

vc tem que criar os controles antes ex:

lbl200;lbl201.....lbl202

Olá! Use a coleção Controls do Form.

 

Dim intI As Integer

 

For intI = 0 To 15
    Me.Controls("lbl" & intI).BackColor = QBColor(intI)
Next

Esqueci de dizer. Se for um Array de controles use:

Dim intI As Integer
 
For intI = 0 To 15
    Me.Controls("lbl")(intI).BackColor = QBColor(intI)
Next