Backcolor de un registro específico del ListView

[lokoman]

Navegando en la web encontré este codigo y funciona!!

1-Agrega un PictureBox
Propiedades:
Name=Pic
Autoredraw=true
BorderStyle=none
Backcolor=&H80000009& ' ES EL COLOR BLANCO
Visible=false

2-Agrega un ListView
Propiedades:
View=lvwReport
Labeledit=lvwManual
Checkboxes=true
Fullrowselect=true

3-Agrega el siguiente codigo:

Código vb:

Private Sub ListView_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    Dim i As Long
    If ListView.ListItems.Count > 0 Then
    
        pic.Width = ListView.Width
        pic.Height = ListView.ListItems(1).Height * (ListView.ListItems.Count)
        pic.ScaleHeight = ListView.ListItems.Count
        pic.ScaleWidth = 1
        pic.DrawWidth = 1
        pic.Cls
        For i = 1 To ListView.ListItems.Count
            If ListView.ListItems(i).Checked = True Then
                ListView.ListItems(i).Checked = True
                pic.Line (0, i - 1)-(1, i), &H80FFFF, BF
            Else
                ListView.ListItems(i).Checked = False
                pic.Line (0, i - 1)-(1, i), &HFFFFFF, BF
            End If
        Next i
        
        ListView.Picture = pic.Image
    Else
        pic.Cls
        ListView.Picture = pic.Image
    End If
End Sub
 

Nos Cuentas!!!