Originariamente inviato da talkoman
e se volessi fare una in una riga ...
Attenzione alla "congiuntivite" ...

codice:
    Dim l As ListItem
    
    Set l = lv.ListItems.Add(, , "000")
    l.ForeColor = vbRed
    l.SubItems(1) = "aaa"
    l.SubItems(2) = "bbb"
    l.ListSubItems(1).ForeColor = vbRed
    l.ListSubItems(2).ForeColor = vbRed

    Set l = lv.ListItems.Add(, , "111")
    l.ForeColor = vbBlue
    l.SubItems(1) = "aaa"
    l.SubItems(2) = "bbb"
    l.ListSubItems(1).ForeColor = vbBlue
    l.ListSubItems(2).ForeColor = vbBlue