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