recorrer controles

[erbuson]

Hola:

Creo que con esta nueva rutina, debería funcionar, aprovechando el código que tienes

Código:

Sub Colorear()
Dim Etiqueta As Object, Grupo As Integer
' Recorremos cada Objeto del formulario
For Each Etiqueta In Me
  ' Si el objeto es un Label ..
  If TypeOf Etiqueta Is Label Then
    ' Separaramos del nombre el número del mismo
    Grupo = Val(Mid$(Etiqueta.Name, 6))
    ' Comprobamos si es número es 1,2,3,4,5,6,7,8,9,10,11,12,13,14 que son los que utilizas Label1, Label2, ... Label14
    If Grupo > 0 And Grupo < 15 Then
      LI = Grupo - 1       ' Para conseguir el valor que utilizas descontamos tenemos de 1 a 14 y tendremos de 0 a 13
      n = Etiqueta.Index   ' Numero de Indice de la etiqueta 0,1,2
      If AZAR(LI) = LINEA(LI, n) Then
        Etiqueta.ForeColor = vbBlue    ' Dibujamos en Azul
      Else
        Etiqueta.ForeColor = vbBlack   ' Restauramos a Negro
      End If
    End If
  End If
Next
End Sub

Pruébalo y comenta, ya que tal vez tenga algun error que deberíamos corregir.

Saludos