189 8069 5689
shape是无句柄的弱控件，不能放在按钮上。但你何不利用按钮本身的功能用图片来做指示灯呢？绝对比用shape做的好看，而且更简单方便：
创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：网站制作、做网站、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的钟楼网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
在属性窗口把按钮（比如Command1）的Style属性设为1（这点是关键）
然后在Picture属性和DownPicture属性中分别放入一张适当的图片，前者是按钮未点击时的背景图片，后者是点击时按钮的背景图片，你只要选择两张大小适中的图片（BMP、GIF或JPG格式的）分别表示灯亮和灯灭即可。 连一句代码都不用，简单吧？
shape做指示灯方法，我在旁边注解了说明。
建立表单添加控件 shape command 两个控件，输入以下代码（两个控件都是VB默认就有的）。
Private Sub Command1_Click() '按钮1按下的代码
If Shape1.FillColor = RGB(255, 255, 0) Then '若shape1为黄色则
Shape1.FillColor = RGB(255, 255, 255.255) '变更shape1为白色
Else
Shape1.FillColor = RGB(255, 255, 0) '其它情况则变成黄色
End If
End Sub
Private Sub Form_Load() '表单读取时定义Shape属性
Shape1.Shape = 3: '设定为形状为正圆形
Shape1.FillColor = RGB(255, 255, 0) '黄色
Shape1.FillStyle = 0: '显示背景
End Sub
给你思路把：当汽车运动时，他的left和top和right(left+width)和bottom(top+height)碰到红绿灯的范围，就停止汽车运动的那个计时器，并将另一个计时器的时间设为延时秒数并开启，里面的代码是打开骑车运动的计时器。
实际就是图片更换，用浅色灯图片作为熄灭指示灯，用鲜艳深色等图片做为点亮指示灯
select case power
case 0
set image1.picture=loadpicture("c:\abc\熄灭.jpg")
case 1
set image1.picture=loadpicture("c:\abc\亮度1.jpg")
case 2
set image1.picture=loadpicture("c:\abc\亮度2.jpg")
case3
......
case n
set image1.picture=loadpicture("c:\abc\点亮n.jpg")
end select