VB的問題~誰可以幫我解決這紅綠燈的問題啊

Question

拜託一下~~誰能幫我 12/26就要考這個了
就是做一個紅綠燈
紅燈亮6秒 綠燈閃4秒 黃燈亮2秒
要有時間顯示 拜託各位大大摟~~
用 flag 加上 變數來控制 這要怎麼用ㄚ
我是用三個image貼上紅黃綠燈 一個command做結束程式
Timer和Label來做一個時鐘
我寫的程式如下:
Dim index as Integer
command1裡打的程式
end
Timer1裡打的程式
set form1.picture=image1(index).picture
index = index 加 1
if index > 2 then index = 0
我打到這樣就不會了 執行只會做紅黃綠燈的變換和時間會跑(是跟著電腦上的時間跑) 改Interval成1000就只能每一秒由紅黃綠燈變換一次 要怎樣才能紅燈亮6秒 黃燈閃2秒 綠燈亮4秒阿 再次拜託各位大大教教我吧!!

Answer 1

'表單上佈置一個Shape,Index=0,一個Timer及一個Label
Dim Flag As Integer
Private Sub Form_Load()
Dim I As Integer
With Shape1(0)
.FillStyle = 0: .Shape = 3: .FillColor = vbRed
.Left = 0: .Top = 0: .Height = 345: .Width = 345
End With
For I = 1 To 2
Load Shape1(I)
With Shape1(I)
.Left = (Shape1(0).Width + 30) * I
.FillStyle = 1
If I = 1 Then
.FillColor = vbYellow
Else
.FillColor = vbGreen
End If
.Visible = True
End With
Next
Flag = 6: Timer1.Interval = 1000: Label1.Caption = 0
End Sub

Private Sub Timer1_Timer()
Static I As Integer, X As Integer
If I < Flag Then
I = I + 1
Else
I = 0 : Shape1(X).FillStyle = 1
If Flag = 6 Then
Flag = 2
Else
Flag = Flag + 2
End If
If X < 2 Then
X = X + 1
Else
X = 0
End If
Shape1(X).FillStyle = 0
End If
Label1.Caption = I
End Sub