毕业设计求助VB延时问题

Question

Case 0 To a6
Shape1.FillColor = vbRed
Shape2.FillColor = vbRed
Shape3.FillColor = vbRedCase a3 To a5
Shape3.FillColor = vbGreen
Shape1.FillColor = vbRed
Shape2.FillColor = vbRedCase a2 To a4
Shape3.FillColor = vbGreen
Shape2.FillColor = vbGreen
Shape1.FillColor = vbRedCase a1 To 15
Shape3.FillColor = vbGreen
Shape2.FillColor = vbGreen
Shape1.FillColor = vbGreen
前后的程序略。
想要实现的延时是：
比如Case a3 To a5
Shape3.FillColor = vbGreen
Shape1.FillColor = vbRed
Shape2.FillColor = vbRed这段代码在Shape1显示red后，过一定时间Shape2显示红色。
同理，Case a2 To a4
Shape3.FillColor = vbGreen
Shape2.FillColor = vbGreen
Shape1.FillColor = vbRed
在Shape3显示绿色后，过一定时间Shape2为红色。
请大家帮忙，谢谢

Answer 1

用sleep(api)函数
或在循环中加时间判断，用doevents随便一搜就可以找到相关代码

Answer 2

不太明白目的，试下用timer控件控制看行不行

Answer 3

声明api
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'调用
sleep 2000  '延时2秒

Answer 4

在窗体代码的顶上写
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)