crear textbox al pulsar boton

[Jennifer_munn]

ok, miré las faqs y esto fue lo q encontré:

Option Explicit
Private numControles As Long
Private Sub cmdCrear_Click()
'Crear un nuevo control de cada tipo'numControles está declarada a nivel de módulo
numControles = numControles + 1
'Crear los controles
Load Label1(numControles)
Load Text1(numControles)

'Posicionarlos y hacerlos visibles
With Label1(numControles)
.Visible = True
.Top = Label1(numControles - 1).Top + .Height + 120
.Caption = "Label1(" & numControles & ")"
End With
With Text1(numControles)
.Visible = True
.Top = Text1(numControles - 1).Top + .Height + 60
.Text = "Text1(" & numControles & ")"
End With
End Sub

copié el codigo en un formulario nuevo y creé un botón al que llamé cmdCrear, pero al ejecutar el programa y pulsar en el botón me dice procedimiento sub o función no definido, y me marca de amarillo la primera linea de la funcion y despues esto:

Load Label1(numControles)

Si añado estas 2 lineas de codigo:
Private Label1 As Label
Private Text1 As TextBox

el error que me da es 'numero de argumentos erróneo o asignación de propiedad no válida'.

Aunque sinceramente, no creo q poner esto sea necesario, ya que he quitado el option explicit.