代码：
成都创新互联公司坚信：善待客户，将会成为终身客户。我们能坚持多年，是因为我们一直可值得信赖。我们从不忽悠初访客户，我们用心做好本职工作，不忘初心，方得始终。10余年网站建设经验成都创新互联公司是成都老牌网站营销服务商,为您提供做网站、成都网站建设、网站设计、成都h5网站建设、网站制作、品牌网站设计、小程序开发服务,给众多知名企业提供过好品质的建站服务。
Dim k As Integer
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text) * 1000
Timer1.Interval = a
k = 0
End Sub
Private Sub Timer1_Timer()
If k = 0 Then
Label1.BackColor = RGB(255, 0, 0)
k = 1
ElseIf k = 1 Then
Label1.BackColor = RGB(0, 255, 0)
k = 2
ElseIf k = 2 Then
Label1.BackColor = RGB(0, 0, 255)
k = 0
End If
End Sub
这个是具体的代码，其中我设置的是label1的背景颜色来表示你需要改变颜色的地方，加入你有其他需要的，可以把那句话修改一下就可以。
需要在窗体上面画上一个标签（名称是label1），一个名称是text1的文本框，一个时钟控件，一个按钮控件，当然，可以不写在按钮控件的click上面，写在窗体的click时间也可以。
以下是图片：
至于运行期间的是
其他的两幅图片就不一一解释了，又不懂可以找我
望采纳，谢谢
给你思路把：当汽车运动时，他的left和top和right(left+width)和bottom(top+height)碰到红绿灯的范围，就停止汽车运动的那个计时器，并将另一个计时器的时间设为延时秒数并开启，里面的代码是打开骑车运动的计时器。
实在不难，就是不知道你写了代码没有？
答案补充：
Dim xuhao As Integer
Const wenjianjia = "" '自己写好了
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
xuhao = xuhao + 1
If xuhao = 4 Then xuhao = 1
Picture1.Picture = LoadPicture(wenjianjia "\" xuhao ".ico")
End Sub
1、 在桌面上，鼠标左键双击，打开VB编程软件，在左边工具栏上单击Image按钮，在Form1窗口上，绘制出图框，然后在Image属性面板的Picture属性上，单击【加载图片】按钮。
2、 接着，在弹出选取图片对话框，选择合适的红绿灯素材来体现效果，这里先选取了一张红灯的图片。
3、在Image属性面板的名称属性上，将其改名为red，标识后就不会与其他图混淆。
4、在VB编程的界面中也可以直接复制控件，如将red这个Image控件复制两个出来，不加入控件组，并将后两个依次改名为yellow、green。
5、 然后，将yellow图形控件与red控件重叠，并右键单击，在弹出的菜单中选择【移至底层】，放好后，green 图形控件放在最底层。三个图形控件依红、黄、绿的顺序叠加重合了。
6、接着，鼠标左键双击red图形控件，弹出输入代码窗口，在其上输入如下代码段。
