Public Class Form1
Private i = 0
Private x = 0
Private y = 0
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim tb1 As New TextBox()
tb1.SetBounds(79 + y, 62 + x, 100, 20)
x = x + tb1.Height + 10
tb1.Text = ComboBox1.SelectedItem
Me.Controls.Add(tb1)
tb1.Name = "tb" & i
End Sub
End Class