'In FormLoad einfügen:
AddHandler btnHauptgerichte.Click, AddressOf btnHauptgerichte_Click
 
Private Sub btnHauptgerichte_Click()
 Select Case sender.name 
  Case Is =   btnHauptgerichte1
      .....
  Case Is =   btnHauptgerichte2
      .....
 End Select
End Sub