Public Class Form2
Dim tb() As TextBox
Dim tb1() As TextBox
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim n As Integer
Dim dx As Integer = 0
Dim dy As Integer = 0
n = CInt(TextBox1.Text)
ReDim tb(n)
ReDim tb1(n)
Dim g As Graphics = Me.CreateGraphics
g.Clear(Me.BackColor)
For i = 1 To n
tb(i) = New TextBox
tb(i).Left = 20 + dx
tb(i).Top = 100 + dy
tb(i).Height = 20
tb(i).Width = 20

tb1(i) = New TextBox
tb1(i).Left = 45 + dx
tb1(i).Top = 100 + dy
tb1(i).Height = 20
tb1(i).Width = 20
Me.Controls.Add(tb(i))
Me.Controls.Add(tb1(i))
dy = dy + 30
Next

End Sub
End Class