Sub OnTimer
If Flag = 0 Then
Timer.Interval = 5000
Shapes.HideShape(SGraRed)
Shapes.ShowShape(SGraYel)
Flag = 1
ElseIf Flag = 1 Then
Timer.Interval = 1000
Shapes.HideShape(SGraYel)
Flag = 2
ElseIf Flag = 2 Then
Timer.Interval = 10000
Shapes.ShowShape(SGraRed)
Shapes.ShowShape(SGraYel)
Shapes.HideShape(SGraGre)
Flag = 3
ElseIf Flag = 3 Then
Timer.Interval = 2000
Shapes.ShowShape(SGraGre)
Shapes.HideShape(SGraYel)
Flag = 0
EndIf
EndSub