In VB6 you can. Use the Listitems.add method as usual.

Add each subitem with the listitems(x).subitems.add method

then listitems(x).sutitems(y).reporticon = <icon>

you can have an icon for each listsubitem