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 +

Leonardo:
Esa no es la mejor forma. La forma correcta es colocar un commandbutton modelo con la propiedad index puesta en 0. Si querés hacelo invisible. Luego podés hacer tantas copias de él como quieras. Por ejemplo si quiero crear 10 commandbutton llamados cmdDinamic, el código sería

Dim k As Long
For k = 1 To 10
Load cmdDinamic(k)
With cmdDinamic(k)
.Caption = "Botón " & k
.Top = cmdDinamic(k - 1).Top + cmdDinamic(k - 1).Height
.Visible = True
End With
Next k
Luego utilizá el evento cmdDinamic_Click
Saludos Ruri

Lo que sucede es que los controles los creo en base a lo que tengo en una base de datos de SQL Server. Esta base de datos contiene todos los controles a dibujar en el formulario y las propiedades de dichos controles