Asignar evento a botones creados dinamicamente

[lena28]

joooooooooooooooooo no me sale
Private Sub nuevoboton_Click()
Dim i As Integer
numControles = cmdBoton.Count
Load cmdBoton(numControles)

cmdBoton(numControles).Visible = True
cmdBoton(numControles).Left = cmdBoton(numControles - 1).Left
cmdBoton(numControles).Top = cmdBoton(numControles - 1).Top + 720

i = cmdVerDatos.Item(numControles).Index 'Para probar que el indice lo coge
MsgBox i

End Sub

' El boton con indice 0 es el que hay ya creado, el 1 lo creo dinamicamente
' con el procedimiento anterior

Private Sub cmdBoton_Click(Index As Integer)
Select Case (Index)
Case 0
MsgBox "Has pulsado 0" 'Para probar pongo msgbox
Case 1 'En este no hace nada, no lo detecta
MsgBox "Has pulsado 1"
End Select
End Sub

Mira a ver si es que hago algo mal, es que el contador lo hace bien.
Gracias David