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,