codice:
Set tvNodo = TreeView.Nodes.Add(Text:=rsNomi("Nome"), _
                Image:=NomeImmagine)
dove NomeImmagine è la proprietà Key che assegno all'immagine della listImage che voglio visualizzare.
spero sia chiaro