Ciao..ti rinnovo il mio consiglio di documentarti sulle enormi potenzialità di questo controllo cmq praticamente devi usare le smallicon al posto delle icon:

Private Sub Form_Load()
Dim LI As ListItem
ListView1.SmallIcons = ImageList1
Set LI = ListView1.ListItems.Add(, , "ciao", , 1)
Me.ListView1.View = lvwSmallIcon
'dove 1 è l'indice delle smallicons nell'imagelist
End Sub

ciao AUGURI