[VBA] Creazione di controlli a run-time

[cik]

objUno(0)
objUno(1)

sarebbero i nomi da dare ai controlli?

io uso questo codice di prova, ma a 800 si blocca

    For i = 0 To 999
        Set txt(i) = CreateControl(frm.Name, acTextBox, , "", "", i * 10, i * 10)
        txt(i).Name = "Testo(" & CStr(i) & ")"
    Next i