VB.net несколько кнопок, использующих одну функцию

Question

Я динамически переименовываю кнопки, и мне нужно выполнить функцию, основанную на тексте кнопки. У меня есть рабочий код (5 разделов для каждой кнопки). Был ли хороший способ просто использовать одну функцию для всех 5 кнопок, используя DirectCast или CType или действительно любую другую функцию, чтобы у меня не было нескольких функций, выполняющих одну и ту же функцию?

Мой пример кода для двух из 5 кнопок:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If Button1.Text = "GO" Then
      MsgBox("GO")
    ElseIf Button1.Text = "STOP" Then
      MsgBox("STOP")
    End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    If Button2.Text = "GO" Then
      MsgBox("GO")
    ElseIf Button2.Text = "STOP" Then
      MsgBox("STOP")
    End If
End Sub

Заранее спасибо!

Answer 1

Вместо прямой ссылки Buton1 вы можете попробовать это (Не уверен насчет синтаксиса VB.NET):

Dim myButton as Button
myButton=(button)sender
If myButton.Text = "GO" Then...