Cómo agregar dinámicamente una matriz de control en VB

¿Opción?Explícito

¿Privado?WithEvents?NewTextBox?As?TextBox

'Declarar una variable de objeto como un nuevo botón de comando usando la palabra clave WithEvents

p>

¿Privado?Sub?Command1_Click()

Si?NewTextBox?¿No hay nada?Entonces

Establecer?NewTextBox?=?Controls.Add( "VB.TextBox" ,?"cmdNew",?Form1)

NewTextBox.Move?200,?200 NewTextBox.Width?=?Form1.Width?-?450 NewTextBox.Height?=?Form1. Altura?-?1400 NewTextBox.Visible?=?True

Fin?Si

Fin?Sub

Privado?Sub?Command2_Click()

¿Si?¿NewTextBox?¿No hay nada?Entonces

¿Salir?Sub

De lo contrario

Controles.¿Quitar?NewTextBox

Establecer ?NewTextBox?=? Nada

Fin?Si

Fin?Sub