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...