双击Timer1控件，添加如下代码：

　　Private Sub Timer1_Timer()
　　′实现自动化
　　If Option1.Value=True Then　′如果当前显示的是红灯
　　　Option2.Value=True　′使Option2被选中，执行Option2中的代码（即显示绿灯）
　　Else
　　　Option1.Value=True　′使Option1被选中，执行Option1中的代码（即显示红灯）
　　End If
　　End Sub

　　单击F5键运行一下，每隔3秒钟即换一种颜色显示。就这么几句代码就实现了自动化，简单吧？