Impossible de colorier ListItem d'un listview

Bonjour tout le monde,

tout d'abord merci pour votre aide

j'ai rempli un listview et je veux colorier différemment la police de la colonne 4 ("En cours" en rouge, "Résolu" en vert et "Non résolu" en bleu)

mais ça marche avec le code ci dessous

   With Usf_Suivi.ListView1
          N = .ListItems.Count
I = 1
For I = 1 To N

      If .ListItems(I).ListSubItems(3).Text = "En cours" Then
         .ListItems(I).ListSubItems(3).ForeColor = RGB(255, 0, 0)
      ElseIf .ListItems(I).ListSubItems(3).Text = "Résolu" Then
         .ListItems(I).ListSubItems(3).ForeColor = RGB(0, 160, 0)
      Else
         .ListItems(I).ListSubItems(3).ForeColor = RGB(0, 0, 160)
      End If
         .ListItems(I).ListSubItems(3).Bold = True
Next
    End With

Bonjour akhiba, le forum,

A tout hasard....

 If .ListItems(I).ListSubItems(3).Text = "En cours" Then
         .ListItems(I).ListSubItems(3).ForeColor = &HFF        'RGB(255, 0, 0)  rouge
      ElseIf .ListItems(I).ListSubItems(3).Text = "Résolu" Then
         .ListItems(I).ListSubItems(3).ForeColor = &HA000      'RGB(0, 160, 0)  vert
      Else
         .ListItems(I).ListSubItems(3).ForeColor = &HA00000    'RGB(0, 0, 160)  bleu
      End If

Cordialement,

C'est super

Merci pour ton aide