michelsrt

Obrigado Alyson, vou me programar para refazer com o ListView, acredito que terei um resultado melhor. Abraços!

Boa noite, poderiam me ajudar por favor? Tenho este código no VBA para mudar a cor das linhas do ListBox, porem retorna o "erro de compilação: Metodo ou membro de ados não encontrado", referindo-se ao ListItems e ListSubItems: Sub corLinha() On Error GoTo Error Dim i, y As Integer For i = 1 To Me.lstbox1.lis.Count For y = 1 To 10 If Me.lstbox1.ListItems(i).ListSubItems(10).Text = "Enviado" Then Me.lstbox1.ListItems(i).ForeColor = &HC000& Me.lstbox1.ListItems(i).ListSubItems (10) Else Me.lstbox1.ListItems(i).ForeColor = &HC0& Me.lstbox1.ListItems(i).ListSubItems (10) End If Next y Next i Exit Sub erro: MsgBox "Erro!", vbCritical, "CriterioCor" End Sub Obrigado!