Preguntas Visual Basic 6

[FedericoC]

Hola, me llamo Federico, y tengo un par de dudas en Visual Basic 6

1) Yo creo controles dinamicos:

option explicit
Dim Withevents Boton commandbutton
Dim CantidadBotones as integer

private sub command1_click()
CantidadBotones= CantidadBotones + 1
set boton = me.controls.add("VB.CommandButton", "cmd" & CantidadBotones)
boton.caption = "Prueba"
boton.visible = true
end sub

private sub boton_click()
msgbox "prueba"
end sub

El problema surge cuando inserto 2 botones, ya que uno de ellos, no hace caso a los eventos. La pregunta seria: ¿Como puedo hacer para que todos los botones que inserte, respondan a los eventos?

2) ¿Existe alguna posibilidad de cambiar el BackColor de un ToolBar?

Desde ya, muchas gracias