SO
SoTTo
July 18, 2002 02:46 PM UTC
Private Sub addtextboxes()
Dim x, i As Integer, startpos As Integer
x = 3
Dim txtCountryCur(x) As TextBox
startpos = Me.txtInput.Top + (Me.txtInput.Height * 1.5)
For i = 0 To x
txtCountryCur(x) = New TextBox()
txtCountryCur(x).Text = "test " & i
txtCountryCur(x).Left = 0
txtCountryCur(x).Top = txtCountryCur(x).Height * i + startpos
Me.Controls.Add(txtCountryCur(x))
Next
end sub