Ola Pessoal,

Estou precisando criar um laço para verificar o CAPTION de várias LABELS, mas estou me embolando em alguma coisa. Será que alguém poderia me dar um help.

Abaixo segue minha rotina, ela precisa verificar na CAPTION dos LABEL1 até Label 37 e verificar se o valor da CAPTION é igual ou menor a um determinado valor de um listbox. Se o resultado for sim ele executa uma outra rotina.No código abaixo, esta a forma como coloquei, mas a rotina esta dando erro 13 "Tipos Incompatíveis".

Valeu

For k = 1 To Label37
         
                If k.Caption < FORMAG3.ListBox1.List(a, 3) Then
                             
                    If ListBox1.List(a, 1) = "M" Then
                        k.BackColor = &HFF8080
                    ElseIf ListBox1.List(a, 1) = "A" Then
                        k.BackColor = &H80FF&
                    ElseIf ListBox1.List(a, 1) = "PG" Then
                        k.BackColor = &HFF00&
                    ElseIf ListBox1.List(a, 1) = "C" Then
                        k.BackColor = &HFF&
                    End If