Visual Basic - Evento de un control creado en tiempo de ejecucion

Hola. Quisiera tener una ayuda respecto a como saber cuando se produce un evento click de un boton cuando se crea en forma dinamica.
A continuacion les dejo el codigo que tengo escrito.


Option Explicit
Private cmdDinamic() As CommandButton
Private ncmdDinamic As Long

Private Sub Form_Load()
Rem +
Rem ---------------------------------------
Rem + Acceso a Tabla de Formularios +
Rem ---------------------------------------
Rem +

Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open ("Provider=SQLOLEDB.1;Password=sql;Persist Security Info=True;User ID=dba;Initial Catalog=Consorcios;Data Source=(local)")
query = "select a.*, c.* from taFormularios a, taObjFormularios b, taObjetos c where a.FormularioId = b.FormularioId and b.ObjetoId = c.ObjetoId and a.FormularioId = 0"
rst.Open query, cnn, adOpenDynamic, adLockOptimistic
Do Until rst.EOF = True
If rst!TipoObjeto = "Command" Then
Propiedades_command
End If
rst.MoveNext
Loop

End Sub


Rem +
Rem -------------------------------------------------------------
Rem + Dibujo Command Button en el Formulario