Creating Text Boxes At Runtime

[Nitro]

Drop a textbox and a command button on the form.
Make sure Text1.Index is assign to 0

Dim X
Dim SpaceDistance

Private Sub Command1_Click()
   X = X + 1
   Load Text1(X)
   SpaceDistance = SpaceDistance + Text1(X).Width
   
   Text1(X).Text = X
   Text1(X).Top = 0
   Text1(X).Left = 0 + SpaceDistance
   Text1(X).Visible = True
End Sub