Button array

WebNewsReader ha escrito:

He creado butones con el codigo:

dim boton(2) As Button --> Si no le pones que es Button, lo hace Object
boton(1)=new button()
boton(2)=new button()
...
set properties
...
me.Controls.Add(boton(1))
me.Controls.Add(boton(1))

ahora tiengo otro problema. Quiero el evento click pero no se como.
alguna ayuda ?

dim boton(2) As Button --> Si no le pones que es Button, lo hace Object
boton(1)=new button()
Private Sub EventoClick_Boton1_Click(ByVal Sender as Object, ByVal e as
EventArgs)
'hace cosas
End Sub

AddHandler boton(1).Click, AddressOf EventoClick_Boton1_Click