Aquí tienes la solución al código propuesto en la entrega cuarenta y cinco.
El aspecto del formulario sería el siguiente:
El formulario en tiempo de diseño.
Y este el código del formulario:
Option Explicit
Private WithEvents mConEvento As cConEventos
Private Sub crearDatosCmd_Click()
mConEvento.CrearDatos
End Sub
Private Sub Form_Load()
Set mConEvento = New cConEventos
End Sub
Private Sub mConEvento_DatosCreados(ByVal total As Long)
MsgBox "Se han creado " & CStr(total) & " datos."
End Sub
Private Sub mConEvento_NuevoDato(ByVal elDato As String)
List1.AddItem elDato
End Sub
Espero que esto sólo te haya servido para confirmar que el código lo has hecho bien.
Nos vemos
Guillermo
