Visual Basic - Problema logico con una matriz

Tengo el siguiente problema: quiero hacer que se compruebe cuando 15 labels de mi prog. (una matriz de 15 labels) tengan todos a la vez el forecolor rojo. para eso yo habia puesto:
"If label(0).forecolor=RGB(255,0,0) and.....[aca van los otros 1 a 13 indices, haciendo lo mismo que label(0)]...... and label(14).forecolor=RGB(255,0,0) then......."y las demas condiciones que pasen cuando se cumpla. Pero este codigo es enorme si lo escribiera entero, por eso puse el label(0), y el label(14), aclarando que los otros tambien van, pero es enorme ese codigo.
La pregunta del millón:¿no hay una fforma mas simple de poner todo esto? intente hasta con bucles do/loop y bucles for/next pero por ahi no lo puse bien.....
Si alguien me ayuda, mejor

Fijate con esto:

Dim bRojo As Boolean, i As Integer

bRojo=True
i=Label.LBound

While i<=Label.UBound And bRojo
bRojo = bRojo And Label(i).forecolor=RGB(255,0,0)
i=i+1
Wend

grax.

sos frigida??
Te voy a coger jej ej ejej ej ejej eje jeej ejjeje jdeeeeje jej ejej
Buscame en el Argentum si tenes algun problema, o figurate por el msn jejejejejejeje

Probá con este código
Dim i As Integer
For i = 0 To 13
If Label(i).ForeColor = RGB(255, 0, 0) Then
MsgBox "La label (" & i & ") es roja"
End If
Next i
Suerte!!!