Visual Basic para Aplicaciones - color de la fuente en listview

Private Sub Actualizar()

Dim Item As ListItem

Dim UltimaFila As Integer

Dim i As Integer

Dim DiasVencidos As Integer

Dim Color As Variant

ListView1.ListItems.Clear

UltimaFila = Hoja18.Cells(Rows.Count, 1).End(xlUp).Row

For i = 5 To UltimaFila

DiasVencidos = Hoja18.Cells(i, 3) - DateValue(Now)

    Select Case DiasVencidos

        Case Is < 1

            Color = &HFF&

        Case 1 To 3

            Color = &HFFFF&

        Case Is > 3

            Color = &HC000&

    End Select

        Set Item = ListView1.ListItems.Add(Text:=Hoja18.Cells(i, 1))

            Item.SubItems(1) = Hoja18.Cells(i, 2)

            Item.ListSubItems(1).ForeColor = Color

            Item.SubItems(2) = Hoja18.Cells(i, 3)

            Item.ListSubItems(2).ForeColor = Color

            Item.SubItems(3) = Hoja18.Cells(i, 4)

            Item.ListSubItems(3).ForeColor = Color

            Item.SubItems(4) = Format(Hoja18.Cells(i, 5), "#,##0.00 €")

            Item.ListSubItems(4).ForeColor = Color

            Item.SubItems(5) = Format(Hoja18.Cells(i, 6), "#,##0.00 €")

            Item.ListSubItems(5).ForeColor = Color

            Item.SubItems(6) = Format(Hoja18.Cells(i, 7), "#,##0.00 €")

            Item.ListSubItems(6).ForeColor = Color

            Item.SubItems(7) = Hoja18.Cells(i, 8)

            Item.ListSubItems(7).ForeColor = Color

            Item.SubItems(8) = Hoja18.Cells(i, 3) - DateValue(Now)

            Item.ListSubItems(8).ForeColor = Color

Next

lblNRegistro.Caption = ListView1.ListItems.Count

End Sub