VB6.0这个怎么运行不了啊，哪里有问题？

Private Sub CmdPlay_Click()
    Dim i As Long
    Anplay.Open ("c:\Program Files\Microsoft Visual             Studio\COMMON\Graphics\Videos\COUNT8R.AVI")
    Anplay.Play
    For i = -20000 To 20000
        Form1.BackColor = QBColor(Rnd * 15)
    Next
    Anplay.Close
End Sub

AnPlay为Animation名称

   For i = -20000 To 20000
    Form1.BackColor = QBColor(Rnd * 15)
    Next

上面这个会让计算机失去响应。后来就close了。

for next 中加入doevents会让程序空出时间来响应。

建议用个加个timer吧。

For i = -20000 To 20000
    Form1.BackColor = QBColor(Rnd * 15)

Doevents
Next