Visual Basic.NET - arrays de botones

quiero crear un boton de forma dinamica con su evento click correspondiente como pueedo hacerlo
gracias

Public Class Form1
Dim BOTON As Button
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BOTON = New Button
Me.Controls.Add(BOTON)
BOTON.Show()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, BOTON.Click ''''este es el boton que he creado
End ' terminar al hacer clic en el boton dinamico
End Sub


End Class

esto me da el siguiente error

'Error 1 La cláusula Handles requiere una variable WithEvents definida en el tipo contenedor o en uno de sus tipos base.

Si quieres crear botones dinámicamente deberás enlazar los eventos al objeto de la misma forma, con la instrucción AddHandler. El resultado sería:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim boton As New Button()
AddHandler boton.Click, AddressOf Boton_Click
Me.Controls.Add(boton)
boton.Show()

End Sub

Private Sub Boton_Click()
MessageBox.Show("Hola mundo!")
End Sub

¡Espero que te sea de ayuda!

muchas gracias ya creia yo que no se podia hacer porque lo habia mirado por todos los sitios y nada
FELIZ AÑO

La solucion, es declarar el boton como como usualmente lo declaramos, sino como un Friend WithEvents, tu codigo quedaria asi:

Public Class Form1
Friend WithEvents BOTON As Button 'La clave para poder crearle eventos
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BOTON = New Button
Me.Controls.Add(BOTON)
BOTON.Show()

End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, BOTON.Click ''''este es el boton que he creado
End ' terminar al hacer clic en el boton dinamico
End Sub
End Class