Visual Basic - ListView con lineas de color

Hola..
Se puede asignar un color a solo algunas lineas
de un ListView ?....o solo se puede con MSFLex ?

probe al ir llenando la lista de asignar
ForeColor = vbRed
pero no funciono
Gracias...

No te gastes buscando ya que al listview no se le pueden asignar colores a las diferentes filas.
(lo maximo que podes hacerle es ponerlo en negrita)

Si solo contas con 1 columna te puede llegar a servir el TreeView (de VB6) al cual si le podes poner un color de fondo

Sólo puedes usar el Forecolor por eso y la manera sería utilizando esta función, donde le pasas la línea del Listview, el color que quieras y el número de columnas que tiene la lista

Private Sub Pintar_Línea(l As ListItem, CColor As Long, Columnas As Integer)
Dim i as integer
l.ForeColor = CColor
For i = 1 To Columnas
l.ListSubItems(i).ForeColor = CColor
Next i
End Sub

''''''''METE ESTO EN UN MODULO

Option Explicit

Public lv As ListView
Public Const NM_CUSTOMDRAW = (-12&)
Public Const WM_NOTIFY As Long = &H4E&

Public Const CDDS_PREPAINT As Long = &H1&
Public Const CDRF_NOTIFYITEMDRAW As Long = &H20&
Public Const CDDS_ITEM As Long = &H10000
Public Const CDDS_ITEMPREPAINT As Long = CDDS_ITEM Or CDDS_PREPAINT
Public Const CDRF_NEWFONT As Long = &H2&

Public Type NMHDR
hWndFrom As Long ' Window handle of control sending message
idFrom As Long ' Identifier of control sending message
code As Long ' Specifies the notification code
End Type

' sub struct of the NMCUSTOMDRAW struct
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

' generic customdraw struct
Public Type NMCUSTOMDRAW
hdr As NMHDR
dwDrawStage As Long
hDC As Long
rc As RECT
dwItemSpec As Long
uItemState As Long
lItemlParam As Long
End Type

' listview specific customdraw struct
Public Type NMLVCUSTOMDRAW
nmcd As NMCUSTOMDRAW
clrText As Long
clrTextBk As Long
' if IE >= 4.0 this member of the struct can be used
'iSubItem As Integer
End Type

Public g_addProcOld As Long
Public g_MaxItems As Long

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes&)
Public Declare Function CallWindowProc& Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc&, ByVal hwnd&, By