Private Sub Form_Load()
    Timer1.Interval = 1000
    Shape1(0).FillColor = vbRed
End Sub
 
Private Sub Timer1_Timer()
    Static n As Byte
    Static b As Boolean
    Dim i As Byte
    n = n + 1
    If n > 3 Then n = 1
    For i = 0 To 2
       Shape1(i).FillColor = vbBlack
    Next
 
    If Not b Then
       Select Case n
          Case 1: Shape1(0).FillColor = vbRed
          Case 2: Shape1(0).FillColor = vbRed: Shape1(1).FillColor = vbYellow
          Case 3: Shape1(2).FillColor = vbGreen
       End Select
       If n = 3 Then b = True
    Else
       Select Case n
          Case 1: Shape1(2).FillColor = vbGreen
          Case 2: Shape1(1).FillColor = vbYellow
          Case 3: Shape1(0).FillColor = vbRed
       End Select
       If n = 3 Then b = False
    End If
    DoEvents
End Sub