ok sono riuscito semplicemente così
ListView1.SmallIcons = ImageList1
Set item = ListView1.ListItems.Add(, , "pippo", , 1)
...grazie!