[VB6] Caricare icone in un controllo ListView

[weberan]

Questa è la form

come vedete riescoa a caricare l'icona in un picture box e non nella list view

il codice è il seguente

Call GetProgram(Me, Trim(Text2.Text), Text1)
'recupero 'eseguibile associata all'estenzione
Call GetIcon(Me, Trim(Text2.Text), Picture1)
'recupero l'handle dell'icona e la visualizzo a video


Set imgx = ImageList1.ListImages.Add(I, , Picture1.Image)
associo l'immagine all'image list

ListView1.SmallIcons = ImageList1

aggiungo la riga
Set itmx = ListView1.ListItems.Add(, , Text2.Text, , I)