[SOLUCIONADO] A vueltas con otra variable

[truskyvb]

No se me dan bien las variables,

Tengo este código:

Código:

If aicAlphaImage2(0).BackColor = aicAlphaImage1(0).BackColor And _
aicAlphaImage2(1).BackColor = aicAlphaImage1(1).BackColor And _
aicAlphaImage2(2).BackColor = aicAlphaImage1(2).BackColor And _
aicAlphaImage2(3).BackColor = aicAlphaImage1(3).BackColor And _
aicAlphaImage2(4).BackColor = aicAlphaImage1(4).BackColor And _
aicAlphaImage2(5).BackColor = aicAlphaImage1(5).BackColor And _
aicAlphaImage2(6).BackColor = aicAlphaImage1(6).BackColor And _
aicAlphaImage2(7).BackColor = aicAlphaImage1(7).BackColor And _
aicAlphaImage2(8).BackColor = aicAlphaImage1(8).BackColor And _
aicAlphaImage2(9).BackColor = aicAlphaImage1(9).BackColor And _
aicAlphaImage2(10).BackColor = aicAlphaImage1(10).BackColor And _
aicAlphaImage2(11).BackColor = aicAlphaImage1(11).BackColor And _
aicAlphaImage2(12).BackColor = aicAlphaImage1(12).BackColor Then
bien.Visible = True
End If

Trato de resumirlo en una variable que no consigo que funcione:

Código:

Dim i As Integer
For i = 0 To 12
If aicAlphaImage2(i).BackColor = aicAlphaImage1(i).BackColor Then
bien.Visible = True
End If
Next i

Si podéis darme alguna idea de como hacerlo, lo agradezco.

Gracias de antemano,

[pkj]

Porque lo haces al reves.
Si todos tienen que ser iguales, comprueba solo el fallo:

Dim i As Integer
dim BoolBien as boolean
boolbien=true
For i = 0 To 12
If aicAlphaImage2(i).BackColor <> aicAlphaImage1(i).BackColor Then
boolbien = False
exit for ' y salimos del bucle, porque ¿para que seguir si ya sabemos que esta mal?
end if
Next i
bien.Visible = boolbien

Saludos

[truskyvb]

Hola pkj, gracias por la ayuda y por la explicación, porque es como se aprende.

Muchas gracias por todo.

Un saludo