Jag ville färga en hel rad i en Listview.(hade varit bäst med bakgrund, men det gå väl inte).
Hur jag är försöker så får jag bara annolunda färg på första kolumnen, inte de andra:

<code>
Set NewLine = Lv1.ListItems.Add(, , ("Eu"))
NewLine.ForeColor = vbBlue
NewLine.SubItems(1) = strBästEu
NewLine.SubItems(2) = "Eu"
NewLine.SubItems(3) = strSämstEu
NewLine.SubItems(4) = "Eu"
NewLine.SubItems(5) = strMedelEu
NewLine.SubItems(6) = "Antal"
NewLine.SubItems(7) = strAntalRegEu
Set Rst = Nothing
</code>

Några förslag?

Det beror på att varje cell kan ha olika färg. Du måste sätta alla till samma färg då:
<code>
Dim NewLine As ListItem
Dim SubItem As ListSubItem
Set NewLine = Lv1.ListItems.Add(, , ("Eu"))
NewLine.ForeColor = vbBlue
NewLine.SubItems(1) = strBästEu
NewLine.SubItems(2) = "Eu"
NewLine.SubItems(3) = strSämstEu
NewLine.SubItems(4) = "Eu"
NewLine.SubItems(5) = strMedelEu
NewLine.SubItems(6) = "Antal"
NewLine.SubItems(7) = strAntalRegEu
For Each SubItem In NewLine.ListSubItems
SubItem.ForeColor = vbBlue
Next
Set Rst = Nothing
</code>

Tack Andreas, fungerar kanon.