Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Do Until CheckBox1.Checked Application.DoEvents() Loop Label1.BackColor = Color.Blue End Sub