http://p2p.wrox.com/pro-vb-6/5177-ch...tml#post196225
Code:
Private Sub Command1_Click()
    Dim item As ListItem
    ListView1.ListItems.Clear
    Set item = ListView1.ListItems.Add(Text:="Bill")
    item.ForeColor = vbGreen
    item.SubItems(1) = "Gates"
    item.ListSubItems(1).ForeColor = vbRed
End Sub