Simplificar código

[pkj]

No me queda muy claro pero creo que seria algo asi:

Código vb:

dim f as integer
bien.visible=True
for f=0 to 2
  If Label3(f).Tag <> Label4(f).Tag or Label4(f).Tag <> Label5(f).Tag 
    then bien.visible=false ' si una falla se apaga el "bien"
    exit for ' y salimos para no perder tiempo
  end if
next f
 

Si no se admiten valores repetidos habria que añadir otra comparacion:

Código vb:

dim f as integer
 
  If Label3(0).Tag <> Label3(1).Tag and Label3(1).Tag <> Label3(2).Tag and Label3(0).Tag <> Label3(2).Tag then
 
bien.visible=True
for f=0 to 2
  If Label3(f).Tag <> Label4(f).Tag or Label4(f).Tag <> Label5(f).Tag then
    bien.visible=false ' si una falla se apaga el "bien"
    exit for ' y salimos para no perder tiempo
  end if
next f
 
end if
 

Saliendo de la funcion cuando se sabe que hay error aceleras mucho la cosa.
De todas formas si usas matrices para guardar los valores seguro que se ejecuta mas rapido que con los Tag de labels.

Saludos