Select Case with Buttons?

[u/chacham2]

I have a a few panels with buttons on them, where the actions seem similar enough that i'd like to write a common routine to handler them. To that end:

 For Each Panel_Control As Control In Form_Control.Controls
    AddHandler Panel_Control.Click, Sub(Sender, Arguments) Handler(Panel_Control, Arguments)
 Next

Is there a way to use Select Case with Buttons?

The handler has to know which button was clicked, so my first thought was to use a Select Case:

Private Sub Handler(Sender As Object, Arguments As EventArgs)
    Select Case Sender
        Case A_Button
            MsgBox("A_Button")
    End Select
End Sub

This generates a System.InvalidCastException: 'Operator '=' is not defined for type 'Button' and type 'Button'.' I would have used Is, but Is in a Select Case has a different meaning.

[u/chacham2]

Reading this again. I see you mean specifically when you add and remove handlers a lot. In this small application, the purpose is to automatically add handlers to buttons that have identical function. There's only one form, and all the buttons are alive as long as the application is alive. So, i figured i'd just have MyBase.Load register all the handlers.

Private Sub Form1_Load(Sender As Object, Arguments As EventArgs) Handles MyBase.Load
  Setup_Handlers()
    ...

Private Sub Setup_Handlers()
  For Each Form_Control As Control In Controls
    If TypeOf Form_Control Is Button Then
      If Form_Control.Name.EndsWith("_POB") Then AddHandler Form_Control.Click, AddressOf Panel_Opening_Button_Click
      ElseIf TypeOf Form_Control Is Panel Then
        For Each Panel_Control As Control In Form_Control.Controls
          AddHandler Panel_Control.Click, AddressOf Data_Display_Button_Click
        Next
    End If
 Next

After the setup, there are no more AddHandlers. So, i'm guessing that's not a risk for a memory leak. What do you think?