
Adding different icons to the ListView subitems
Take a look at the ListSubItems collection of the ListView. You can set the
ReportIcon of the ListSubItem object.
Assuming a ListView with 3 column headers, and an imagelist with 2 images, you can
try:
Dim li As MSComctlLib.ListItem
Dim lsi As MSComctlLib.ListSubItem
Set li = ListView1.ListItems.Add(, , "ListItem:1")
li.SubItems(1) = "ListSubItem:1"
Set lsi = li.ListSubItems(1)
lsi.ReportIcon = 1
li.SubItems(2) = "ListSubItem:2"
Set lsi = li.ListSubItems(2)
lsi.ReportIcon = 2