毕业设计求助VB延时问题
Case 0 To a6Shape1.FillColor = vbRed
Shape2.FillColor = vbRed
Shape3.FillColor = vbRed
Case a3 To a5
Shape3.FillColor = vbGreen
Shape1.FillColor = vbRed
Shape2.FillColor = vbRed
Case a2 To a4
Shape3.FillColor = vbGreen
Shape2.FillColor = vbGreen
Shape1.FillColor = vbRed
Case 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为红色。
请大家帮忙，谢谢 --------------------编程问答-------------------- 用sleep(api)函数
或在循环中加时间判断，用doevents
随便一搜就可以找到相关代码 --------------------编程问答-------------------- 不太明白目的，试下用timer控件控制看行不行 --------------------编程问答-------------------- 声明api
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'调用
sleep 2000 '延时2秒
--------------------编程问答--------------------
我不知道在哪儿声明，请详细点说明下，谢谢！ --------------------编程问答-------------------- 在窗体代码的顶上写
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
补充：VB , 基础类
