Listview señalar registros otro color

MMu?
03 de Diciembre del 2003
Hola, tngo un listview enlazado con una base de datos, en la cual hay registros que estan anulados. Todo ello esta en una tabla, y quisiera que al cargarlos en el listview los que tengan el campo como anulados(ok) ese registro me lo marcara con letra roja. Este es el codigo q tengo,, y que voy probando.

Public Function carga_lstvdatos_plano()
'Muestra los datos de la base en el listview
If rs2.EOF = True And rs2.BOF = True Then
MsgBox "Introduzca Datos en la BD para poder visualizar", vbInformation, "No hay datos"
Else
With rs2
If .RecordCount <> 0 Then
Form4.LstvDatos.ListItems.Clear

.MoveFirst

While Not rs2.EOF
If rs2.Fields("anulado").Value = "Si" Then
chivcolor = 1
Form4.LstvDatos.ForeColor = red 'ROJO
Else
chivcolor = 0
Form4.LstvDatos.ForeColor = black 'negro
End If

Set items = Form4.LstvDatos.ListItems.Add(, , .Fields(0) & "")
items.SubItems(1) = .Fields("numplano") & ""
items.SubItems(1) = .Fields("titulo") & ""
items.SubItems(2) = .Fields("fecharealizado") & ""

.MoveNext
Wend

End If
End With
End If
End Function