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