Ciao Gmalex!
Potresti fare anche in questo modo:
codice:Private Sub Form_Load() 'la prima textbox esiste già in quanto è stata creata a design time, 'quindi occorre solo renderla visibile (se non lo è) e posizionarla Me.Text1(0).Visible = True Me.Text1(0).Move 500, 100 'il ciclo è solo d'esempio: 'per creare una serie di altre textbox: Dim i For i = 1 To 5 'carico la textbox nella form: Load Text1(i) 'la posiziono sotto quelle già presenti: With Text1(i) .Move 500, (400 * i + 100) .Visible = True End With Next i End Sub![]()

Rispondi quotando