[VB] Creazione dinamica di oggetti mediante Sub Routine

[chipdb]

Allora. Sto lavorando con un database (mdb) contenente diverse centinaia di report. Il database ha TOT campi. In ogni campo é possibile inserire 1 o più valori (es. 2-3 numeri di telefono) separati tramite simbolo appropriato che imposto io da programma.

Il problema sta nel fatto che essendo diversi i valori volevo creare dinamicamente un campo in base al numero di valori trovati nella stringa del database.

Es.
Campo del database "Telefono" di indice qualsiasi: Numero1 ; Numero2

Nella Label 'Telefono(0)' del programma deve venire scritto Numero1, e quindi creare la Label 'Telefono(1)' e scriverci Numero2.

Essendo però tante le Label di riferimento volevo gestire il tutto tramite una Sub.

Una roba del genere per capirci (questa sotto non funzia!):

Sub CreateObj(Obj As Label, ByVal Number As Integer)

    Dim Ind As Integer
    
    For Ind = 1 To Number
        Load Obj(Ind)
        Obj(Ind).Visible = True
        Obj(Ind).Left = Obj(Ind - 1).Left + Obj(Ind).Width + 50
    Next
    
End Sub

Dove Number sarà il risultato della funzione che calcola quante Label sono da creare associate a quel campo ('Telefono(1)','Telefono(2)','Telefono(3)'... ecc ecc)...

Qualcuno può aiutarmi a creare questa Sub?

[darkblOOd]

perchè non ti funziona? (non intendo dire che il codice è giusto, volevo sapere se ti dava qualche errore)

sei sicuro che si usi Load per creare un oggetto?

Non esiste un metodo tipo CreateObject(TuoOgetto As TipoOggetto)?

[giuSp]

fammi vedere un pò come passi gli argomenti alla Sub!

[chipdb]

Io ho provato:

CreateObj Telefono, NumberOfNumbers (Telefono(0).Text)

e

CreateObj Telefono(0), NumberOfNumbers (Telefono(0).Text)

...

Nessuna delle due funzia...