请教label的问题

[nkxiaoqi]

我现在可以通过按一个button改变label的背景颜色
可是我想做几个label，然后在一个循环中通过产生的随机数让不同的label改变颜色，
我做了一个for循环，然后在里边根据产生的随机数改变相应的label颜色
可是只有在循环最后才改变，其他的都看不出来改变，也就是不变颜色
请问是怎么回事呀？
谁知道呀？
谢谢

[bcpl]

循环太快，来不及更新，可以用::Sleep函数来延时，然后调用label的UpdateWindow，但会影响其它消息响应，可以用定时器，也可以用线程（好象牛刀小用了）
测试程序
http://my.6to23.com/cigarette/sd2.zip