Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'TextBox1.Text = Token()
If Button1.Enabled = True Then
Label1.Text = Label1.Text + " A1 "
If Button1.BackColor = Color.Yellow Then
Button1.BackColor = Color.Red
Else
Button1.BackColor = Color.Yellow
End If
Else
Label2.Text = ""
Label2.Text = True
End If
Button1.BackColor = Color.Yellow
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If Button2.Enabled = True Then
Label1.Text = Label1.Text + " b1 "
If Button1.BackColor = Color.Yellow Then
Button1.BackColor = Color.Red
Else
Button1.BackColor = Color.Yellow
End If
Else
Label2.Text = ""
Label2.Text = True
End If
Button2.BackColor = Color.Yellow
End Sub
End Class