Visual Basic 6 - matrici e confronto fra di loro

salve,sono Vincenzo
ho due matrici label b(1) fino a b(120) e c(1) fino a c(120)
una label x1 e un timer1.
Il Timer1 genera dei numeri casuali nelle 120 label della matrice b,
se un numero della matrice b è uguale a x1, quella label dovrà diventare di colore rosso e, di conseguenza, la corrispondente label della matrice c
dovrà essere uguale a 1.
IO ho scritto questo codice:

Private Sub K_Change()
Dim cx As Integer
Dim bx As Integer
For bx = 1 To 120
For cx= 1 To 120
If B(bx) = x1 Then
B(bx).ForeColor = vbRed
c(cx) = 1
x1.ForeColor = vbRed
End If
Next
Next
End Sub

ma il risultato è che, quando una label della matrice b diventa rossa, tutte le label della matrice c sono uguale a 1.
Grazie per un eventuale aiuto
Vincenzo

Ciao!
Ho letto la tua funzione, l' errore sta nell' aver implementato due cicli, uno interno all' altro.
La procedura corretta, è quella di impostare un solo ciclo.