crear controles en tiempo de ejecucion

como se puede crear y eliminar controles en tiempo de ejecucion.

como se puede crear y eliminar controles en tiempo de ejecucion. e probado esto pero no funciona
como se podria hacer para tambien otro tipo de controles ejml(WebBrowser,WindowsMediaPlayer1.)
'Ejemplo de creacion de controles en tiempo de ejecucion
Option Explicit
'Llevara la cuenta de los controles creados
Private numControles As Long
Private Sub cmdCrear_Click()
'Crear un nuevo control de cada tipo
'numControles esta declarada a nivel de modulo
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
Private Sub cmdEliminar_Click()
'Eliminar un elemento de cada control anteriormente creado
'El control CERO no se puede eliminar
If numControles > 0 Then
'Descargarlos de la memoria
Unload Label1(numControles)
Unload Text1(numControles)
numControles = numControles - 1
End If
End Sub
Private Sub userform_activate()
'Por defecto creamos un control de cada array:
'un Label y un Textbox
cmdCrear_Click
End Sub

hola, daniel !

adicional a las propuestas de Ivan :))

ejemplos (codigo y archivo para descargar) en la pagina de John Walkenbach
-> Creating a UserForm Programmatically
http://j-walk.com/ss/excel/tips/tip76.htm

(supongo que) para administrar controles de librerias distintas de
"MSForms"
deberas revisar metodos/colecciones/propiedades/... (p.e.) en el
examinador de objetos (tecla {F2} desde vba)
obviamente, habiendo establecido referencia a dicha/s liberia/s en el
proyecto de macros (vba / herramientas / referencias...)

saludos,
hector.

__ la consulta original __

como se puede crear y eliminar controles en tiempo de ejecucion. e
probado esto pero no funciona
como se podria hacer para tambien otro tipo de controles
ejml(WebBrowser,WindowsMediaPlayer1.)
'Ejemplo de creacion de controles en tiempo de ejecucion
Option Explicit
'Llevara la cuenta de los controles creados
Private numControles As Long
Private Sub cmdCrear_Click()
'Crear un nuevo control de cada tipo
'numControles esta declarada a nivel de modulo
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
Private Sub cmdEliminar_Click()
'Eliminar un elemento de cada control anteriormente creado
'El control CERO no se puede eliminar
If numControles > 0 Then
'Descargarlos de la memoria
Unload Label1(numControles)
Unload Text1(numControles)
numControles = numControles - 1
End If
End Sub
Private Sub userform_activate()
'Por defecto creamos un control de cada array:
'un Label y un Textbox
cmdCrear_Click
End Sub