Private Sub one_Click(ByVal sender As Object, ByVal e As EventArgs) Handles one.Click empBox.Text += 1 If empBox.Text = 1 Then one.BackColor = Color.Red End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)