Your question is not clear.
But here is a solution that might just answer your question.
I am assuming you add some buttons to some menu.
Here is some pseudo code that might work.
Public Sub AddButtonToMenu(ByVal menu As Menu)
menu.Buttons.Add(New Button("Button 1"))
menu.Buttons.Add(New Button("Button 2"))
menu.Buttons.Add(New Button("Button 3"))
For Each btn As Button In menu.Buttons
AddHandler btn.Click, AddressOf btn_Click
Next
End sub
Private Sub btn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim btn As Button = DirectCast(sender, Button)
If btn.Text = "Button 1" Then
End If
End Sub