EU ESTOU USANDO O LIST PARA MOSTRAR ALGUNS VALORES MAIS ESTOU COM UM PROBLEMA EU TENHO QUE FAZER UMA CONSULTA
SE PAGAMENTO FOR   DE VAZIO  ENTÃO  ELE DESTACA  A LINHA, MUNDADO DE COR A LINHA , FICA VERMELHA E AS OUTRA CONTINUAM PRETA , CADA VEZ QUE O PAGAMENTO FOR PREENCHIDO  A LINHA MUDA DE COR VERMELHA  

O MEU CODIGO ESTA ASSIM:


'Evento Click() do botão de listagem no vídeo
Private Sub BtnListarVideo_Click()
Dim Saldo As Double

Saldo = 0
LstMov.Clear
RegCon.Index = "IndiceData"
RegCon.MoveFirst
Do Until RegCon.EOF
  RegCon.Edit
  
  Saldo = Saldo + RegCon("Entrada") - RegCon("Saida")
  
  If RegCon("Data") = InvData(TxtDataInicial.Text) Then
  LstMov.AddItem RegCon("Sequencia") + " " + InvData(RegCon("Data")) + " " + _
  " " + Alinha(Mid(RegCon("Descricao"), 1, 10), 10, "ESQ") + " " + InvData(RegCon("Vencimento")) + " " + " " + InvData(RegCon("Pagamento")) + _
  Alinha(Format(RegCon("Entrada"), "#,###,##0.00"), 12, "DIR") + _
  Alinha(Format(RegCon("Saida"), "#,###,##0.00"), 12, "DIR") + _
  Alinha(Format(Saldo, "#,###,##0.00"), 12, "DIR")
  End If
  
  RegCon.MoveNext
Loop
End Sub




alexandre

Se quiser modificar para TREEVIEW eu te ajudo na modificação

Mas a TREEVIEW faz parte de uma OCX externa e a mesma deverá acompanhar o executavek