Hola pkj, gracias por la ayuda.
Tomando tu código, al final quedó así y funciona correctamente;
Código:
For i as integer
For i = 0 To 2
If Label3(i).Tag <> Label4(i).Tag Or Label4(i).Tag <> Label5(i).Tag Then
' si una falla se puede poner una condición"
Exit For ' y salimos para no perder tiempo
Else
If Label3(0).Tag <> Label3(1).Tag And Label3(1).Tag <> Label3(2).Tag And Label3(0).Tag <> Label3(2).Tag Then
If Label4(0).Tag <> Label4(1).Tag And Label4(1).Tag <> Label4(2).Tag And Label4(0).Tag <> Label4(2).Tag Then
If Label5(0).Tag <> Label5(1).Tag And Label5(1).Tag <> Label5(2).Tag And Label5(0).Tag <> Label5(2).Tag Then
' Una vez que los Tag en la misma Label son distintos compruebo que sean iguales por grupos
'Ejemplo de grupo:
' Label3(0) PAPÁ / Label3(1) MAMÁ / Label(2) HIJO
' LabelL4(0) HOMBRE / Label4(1) MUJER / Label4(2) NIÑO
' Label5(0) CARLOS / Label(1) MARÍA / Label4(2) JUAN
If Label3(0).Tag = Label4(0).Tag And Label3(0).Tag = Label5(0).Tag Then
If Label3(1).Tag = Label4(1).Tag And Label3(1).Tag = Label5(1).Tag Then
If Label3(2).Tag = Label4(2).Tag And Label3(2).Tag = Label5(2).Tag Then
' Cómo se cumplen todas las condiciones:
Bien.visible=true
End If
End If
End If
End If
End If
End If
Next i
End if
Gracias.
Un saludo,