I think all you need is to add a handler to the OnClick event. In Windows.Forms.Buttons this fires when the user clicks each time.
Private Sub My_Clicked_Event(sender As Object, e As EventArgs) Dim lb As System.Windows.Forms.Button = DirectCast(sender, System.Windows.Forms.Button) lb.Text = "I have been clicked" lb.Forecolor = Color.Black MsgBox("Clicked") End Sub
then add the handler in your code
AddHandler lblbutton.Click, AddressOf My_Clicked_Event
Changing variables could simply be done using the casted lb…