Visual Basic - Como poner Colores al Texto de un ListView(ejemplo

Necesito poner colores al texto de un ListView,

Esto en base al resultado de una de las columnas del ListView columna si es "si" poner el rojo y si es "no" el azul....
Favor de mandar un ejemplo

solo pon un LISTVIEW y en el evento load del form pones

Private Sub Form_Load()

ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "Cabecera"

For i = 1 To 20
Select Case i Mod 2
Case "0"
ListView1.ListItems.Add , , "Si"
Case "1"
ListView1.ListItems.Add , , "No"
End Select
Next

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems.Item(i).Text = "Si" Then
ListView1.ListItems.Item(i).ForeColor = vbRed
Else
ListView1.ListItems.Item(i).ForeColor = vbBlue
End If
Next

End Sub

Muchisimas gracias por tu ayuda solo que al intentar probarlo me marca error en el ForeColor ya que no es un comando valido

ListView1.ListItems.Item(i).ForeColor = vbBlue

Si tu despues del itrm(i) le pones el punto no te aprecera el comando forecolor es por eso ue me marca error.

Tengo el VB6 en Español instalado en mi pc

Te agradeceria que tu respuesta me la enviaras a mi correo, gracias...