Yardım Listview de koşula bağlı satırdaki yazıları renklendirme

Merhaba arkadaşlar,

Ekteki çalışmamda aşağı da yazmış olduğum kodda son sütün da bulunan DEVAM_EDİYOR olan satırlardaki yazılar mavi, Bitti yazan satırları da Kırmızı yapmak istiyorum ama bir türlü başaramadım yardımcı olursanız sevinirim. İyi çalışmalar.

Sub liste()
Dim x As Long
Dim stk As ListItem
lstKampanya.ListItems.Clear

For x = 11 To 1000000
If Sheets("Kampanya").Range("A" & x).Value = "" Then Exit For
Set stk = lstKampanya.ListItems.Add(Text:=Sheets("Kampanya").Range("A" & x).Value)

stk.SubItems(1) = Sheets("Kampanya").Range("B" & x).Value
stk.SubItems(2) = Sheets("Kampanya").Range("C" & x).Value
stk.SubItems(3) = Sheets("Kampanya").Range("D" & x).Value
stk.SubItems(4) = Sheets("Kampanya").Range("E" & x).Value
stk.SubItems(5) = Sheets("Kampanya").Range("F" & x).Value
stk.SubItems(6) = Sheets("Kampanya").Range("G" & x).Value
stk.SubItems(7) = Sheets("Kampanya").Range("H" & x).Value

' Renklendirme Bölümü
If Sheets("Kampanya").Range("H" & x).Value = "DEVAM_EDİYOR" Then
lstKampanya.ListItems(1).ForeColor = &HFF0000
For j = 1 To 7
lstKampanya.ListItems(1).ListSubItems(j).ForeColor = &HFF0000
Next j
End If
If Sheets("Kampanya").Range("H" & x).Value = "Bitti" Then
lstKampanya.ListItems(1).ForeColor = &HFF&



End If

Next
End Sub