Dim a As Integer
Dim num(3) As Single

Private Sub cmdBlink_Click()
Timer1.Enabled = True
End Sub

Private Sub cmdOneColor_Click()
Timer1.Enabled = False

a = Int(3 * Rnd) + 1
Timer2.Enabled = True
End Sub

Private Sub cmdStop_Click()
Timer1.Enabled = False
Timer2.Enabled = False
End Sub

Private Sub Form_Load()
Form1.WindowState = 2
Timer1.Enabled = False
Timer2.Enabled = False
Form1.Show
Randomize
num(1) = &HFFFF
num(2) = &HFFFFFF
num(3) = &HFF
End Sub

Private Sub Timer1_Timer()
For x = 1 To 10
a = Int(3 * Rnd) + 1
Shape1(x).FillColor = num(a)
Next x
End Sub

Private Sub Timer2_Timer()
For light = 1 To 3
x = Int(10 * Rnd) + 1
Shape1(x).FillColor = num(a)

x = Int(10 * Rnd) + 1
Shape1(x).FillColor = &H8000&
Next light
End Sub