Dynamic button control in vb

Private Sub Button_Click(sender as object, e as ButtonClickEventArgs) Handles, Button1.Click, Button2.Click, etc...
  Dim btn as Button = DirectCast(sender, Button)
  Select Case btn.Name
    Case "Button1"
      do something
    Case "Button2"
      do something else
    Etc...
  End Select
End Sub

Private Sub test()
    For Each c As Control In Me.Controls
        If c.GetType.ToString = "Button" Then
            AddHandler c.Click, AddressOf Button_Click
        End If
    Next
End Sub