non riesco a creare l'evento mouse click

codice:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim button As New Button
        Me.Controls.Add(button)
        button.Text = "click to process your request"
        button.Top = 10
        button.Left = 10
        button.Width = 260
        AddHandler button.Click, button_click()


    End Sub
    Sub button_click() Handles Button.Click

    End Sub