Creación dinámica de controles

Dim i, j As Integer
j = Me.txtCantidad.Text
For i = 0 To j - 1
Dim textBox As New TextBox
Panel1.Controls.Add(textBox)
Next