Dim lvwItem As ListItem
Dim lvwSubItem As ListSubItem

Set lvwItem = lvwXXX.ListItems.Add(, , "value1")
Set lvwSubItem = lvwItem.ListSubItems.Add(, , "value2")


RBS


"EAB1977" wrote in message
...
How do I add a item to a listview that has 2 columns? I am using
Microsoft Listview Version 6.0