[VB6] CommandButton Click da codice

[evilsaint]

Se devo fare un tot di commandbutton come faccio ad associarli l'evebni click?
esempio:

dim i as Integer
dim withevents button as CommandButton
for i=0 to max
  set button=Controls.Add("Vb.CommandButton","button" & i)
  with button
    .caption="..."
    ......
    ......
  end with
next

Come faccio ad associare ad ogni bottone la funzione Click()?
Spero di essere stato chiaro.
Grazie