pode cre irmao esses sao os exe q eu me basiei tanbem , mas nao esta dando certo na hora q tento adptar esses codigos aos meus entende, saca?  os registros q vem do banco nao ficam com as cores por codigo , mas tudo bem obrigado pela sua ajuda .

 Korn, veja este exemplo:

 

 

pode cre acho q é mais ou menos isso mesmo , vou da uma olhada obrigado de novo

opa irmao to quase la , mas tipo esta colorindo de boa , mas esta colorindo todos os Codigos liga , nao esta colorindo somente os codigos numero 1 por exemplo

 

e esta dando erro de index out of bounds nessas duas linhas

 

  Picture1.Height = ListView1.ListItems(1).Height * (ListView1.ListItems.Count)
    Picture1.ScaleHeight = ListView1.ListItems.Count

 

mas quando eu tiro ae fica de boa , mas colore todos os registos entende

 

 

eu deixei assim o Codigo

 

 Dim i As Integer
 
    Me.ScaleMode = vbTwips
 
   ListView1.View = lvwReport
  
    ListView1.ColumnHeaders.Clear
    ListView1.ColumnHeaders.Add , , "", 0
   
    ListView1.ColumnHeaders.Add , , "Tipo", 1700
    ListView1.ColumnHeaders.Add , , "Código", 0
       
    ListView1.ColumnHeaders.Add , , "Proprietário", 1000
        
    ListView1.ColumnHeaders(1).Width = 0
    ListView1.ColumnHeaders(2).Alignment = lvwColumnCenter
    ListView1.ColumnHeaders(3).Alignment = lvwColumnCenter
          
    Picture1.BackColor = ListView1.BackColor
    Picture1.ScaleMode = vbTwips
    Picture1.BorderStyle = vbBSNone
    Picture1.AutoRedraw = True
    Picture1.Visible = False
  
    MaxCmd = 1
    Picture1.Width = ListView1.Width
    Picture1.Height = ListView1.ListItems(1).Height * (ListView1.ListItems.Count)
    Picture1.ScaleHeight = ListView1.ListItems.Count
    Picture1.ScaleWidth = 1
    Picture1.DrawWidth = 1
    Picture1.Cls
    For i = 1 To ListView1.ListItems.Count
    
        If ListView1.ListItems(i).SubItems(1) = "1" Then
         Picture1.Line (0, i - 1)-(1, i), 255, BF
       Else
         Picture1.Line (0, i - 1)-(1, i), &HFF8080, BF
       End If
    Next
    
    ListView1.Picture = Picture1.Image

'FAÇA ESTE EXEMPLO:

 

Option Explicit
Dim MaxCmd As Integer
Dim I
Dim U
Private Sub Form_Load()
Dim I As Integer
    Me.ScaleMode = vbTwips
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Clear
    ListView1.ColumnHeaders.Add , , "Tipo", 1700
    ListView1.ColumnHeaders.Add , , "Código", 1500
    ListView1.ColumnHeaders.Add , , "Proprietário", 1000

I = 1
If I = 1 Then GoTo colocado1
U = 0
DENOVO:
I = I + 1
If I = 20 Then GoTo PULO
colocado1:
If U = 0 Then _
ListView1.ListItems.Add(, , "TESTE" & I).SubItems(1) = "1": U = 1
If U = 1 Then _
ListView1.ListItems.Add(, , "TESTE" & I).SubItems(1) = "0": U = 0

GoTo DENOVO
PULO:

'*Até Aqui...
   

    Picture1.BackColor = ListView1.BackColor
    Picture1.ScaleMode = vbTwips
    Picture1.BorderStyle = vbBSNone
    Picture1.AutoRedraw = True
    Picture1.Visible = False
  
    MaxCmd = 1
    Picture1.Width = 20000
    Picture1.Height = ListView1.ListItems(1).Height * (ListView1.ListItems.Count)
    Picture1.ScaleHeight = ListView1.ListItems.Count
    Picture1.ScaleWidth = 1
    Picture1.DrawWidth = 1
    Picture1.Cls
    For I = 1 To ListView1.ListItems.Count
   
       If ListView1.ListItems(I).SubItems(1) = "1" Then
         Picture1.Line (0, I - 1)-(1, I), 255, BF
       Else
         Picture1.Line (0, I - 1)-(1, I), &HFF8080, BF
       End If
    Next
   
    ListView1.Picture = Picture1.Image

End Sub

 

'O ERRO: "index out of bounds" É QUE NAO HAVIA NENHUM VALOR NOS SUBITENS