addhandler Button1.Click,addressof (SubName) z.B. Abfrage

    Sub Abfrage(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Select Case sender.name 'name des Steuerelementes
            Case Is = "btn1"
                Me.Panel2.Show
            Case Is = "..."
 
        End Select
    End Sub

MfG Radon