利用vb時鐘控件做黃綠紅燈轉換的的程序

單燈轉換（紅黃綠壹個燈）：

Dim?t?As?Integer

Private?Sub?Timer1_Timer()

If?Shape1.FillColor?=?&HFF&?And?t?=?0?Then

t?=?Val(Text1.Text)?+?1

End?If

If?Shape1.FillColor?=?&HFF00&?And?t?=?0?Then

t?=?Val(Text2.Text)?+?1

End?If

t?=?t?-?1

If?t?=?0?Then

Select?Case?Shape1.FillColor

Case?&HFF&

Shape1.FillColor?=?&HFF00&

Case?&HFF00&

Shape1.FillColor?=?&HFFFF&

t?=?1

Case?&HFFFF&

Shape1.FillColor?=?&HFF&

End?Select

End?If

Text3.Text?=?t

End?Sub

控件：

壹個Shape，顏色設置為綠色（紅黃都行），填充樣式為0-Solid，三個Text，壹個Timer，Interval設置為1000。text1記錄紅燈時間，text2記錄綠燈時間，text3顯示剩余時間。

三等轉換如果需要，我繼續幫忙。