Ciao Davide.
Non è che abbia capito bene il tuo problema

cmq..

- In una form crea una casella di testo (Text1)
- Nella proprietà index di Text1 scrivici "0"
- Crea una casella di testo e chiamala "txtNColonne"
- Aggiungici anche un CommandButton (Command1)

Prova a copiare il codice e poi scrivimi cosa ti serve cambiare.
Fammi sapere!
Ciao.

Dim NewRow As Integer
Dim NewCol As Integer
Private Sub Command1_Click()
On Error Resume Next
NewCol = 0
For i = 1 To txtNColonne
Load Text1(Text1.Count)
Text1(Text1.Count - 1).Top = NewRow
Text1(Text1.Count - 1).Left = NewCol
Text1(Text1.Count - 1).Visible = True
NewCol = Val(NewCol) + Val(Text1(0).Width)
Next i
NewRow = Val(NewRow) + Val(Text1(0).Height)
End Sub