Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Button1.Text = "Clicked" End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'Button1.Text = "Clicked" MsgBox("Button Was clicked") End Sub