用Timer控件
Call Sleep(30000) --------------------------------下面开始写灯亮控制。
if ... then语句 当满足条件时执行一段代码格式 :If 条件 then要执行的代码end if