Visual Basic - Creación de Cajas de Texto en tiempo de Ejecucion

Hola,
Me gustaría saber como creo cajas de texto en tiempo de ejecución.
He estado haciendo las pruebas de crearme una variable de tipo TextBox.. pero no se muy bien que tengo que poner.

dim txttexto as TextBox

set txttexto = ...
txttexto.Text = \"Hola\"

Lo primero es poner en tu formulario una caja de texto y asignar la propiedad Index en tiempo de diseño el valor 0. Te adjunto un pequeño código que al hacer click en un boton te crea una caja de texto.

Private Sub Command1_Click()
Dim i As Byte
For i = 1 To 2
Load Text1(i)
Text1(1).Visible = True
Text1(i).Move 0, 0
Next i
End Sub

Deberás de modificar el índice para determinar cuantas cajas de texto deseas y modificar la propiedad Move para situarlas en distintas posiciones del formulario, sino todas serán colocadas en el mismo sitio.

Espero haberte ayudado, si necesitas alguna aclaración mandame un correo y lo comentamos.

Saludos Pola

Gracias Pola, ya lo he conseguido de la siguiente forma:
Dim controltext As TextBox

Set controltext = Form1.Controls.Add("VB.TextBox", "controltext")
controltext.Text = "Esto es una prueba"

Para destruir el control creado con:
Form1.Controls.Remove "controltext"

De esta forma no tengo que crear ningún tipo de control en el formulario.
No obstante gracias por tu ayuda.

Para crear un control en tiempo de ejecucion debes crear un array de controles:
Dibuja el primer elemento en tiempo de diseño y establece su propiedad "index" = 0 .
Para que te aparezcan los nuevos controles al pulsar un boton añade uno a tu formulario y en el evento click del mismo añade el código:

dim i as integer
i=txtarray.bound ' esta propiedad hará q el índice del array sea único
load txtarray(i+1) ' para cargar en memoria el nuevo control
txtarray(i+1).visible=true
txtarray(i+1).top=txtarray(i+1).top+txtarray(i).height+120
txtarray(i+1).left=txtarray(i).left

Las propiedades top y left establecerán la posición del nuevo control respecto del último.
Espero q te sirva de ayuda.