我写了一个代码，在执行过程中改变标签的背景色，两次给它一个动画效果。这个想法说:

按下按钮时改变颜色从黑色到红色。
然后被放在一个空循环创造一些延迟，然后回黑色的颜色变化。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        box.BackColor = Color.Red

        For delay As Double = 0 To 900000000 Step 1

        Next

        box.BackColor = Color.Black

    End Sub

但它不执行所需。标签不会变成红色，我怀疑程序执行延迟。任何想法，请告诉我问题吗？| Razanust