Cómo hacer que los controles creados dinámicamente respondan a las operaciones en VB6
También puede escribir eventos para controles agregados dinámicamente declarando una variable de objeto usando la palabra clave WithEvents y configurando la referencia devuelta por el método a esa variable, como se muestra a continuación.
Opción explícita
'Declarar la variable de objeto como CommandButton.
Private WithEvents cmdObject As CommandButton
Private Sub Form_Load()
Establecer cmdObject = Form1.Controls.Add("VB. CommandButton", "cmdOne")
cmdObjeto. Visible = Verdadero
cmdObject.Caption = "Dynamic CommandButton"
End Sub
Private Sub cmdObject_Click()
Imprimir "Esto es un control agregado dinámicamente"
End Sub