Visual Basic 6 - Imagelist

Rieccomi , sto cercando di migliorare un programma , praticamente ho una array di Imagelist e un array di combo , selezionando un elemento dalla combo dovrebbe comparire un immagine in una picture .
Il codice sviluppato e' quello sottostante , peccato che però non viene visualizzata l'immagine. Perchè ?

Private Sub Combo1_Click(index As Integer)
Dim im As Image
Set im.Picture = ImageList1(index).ListImages.Item(Combo1(index).ListIndex + 1).Picture
Picture1.PaintPicture im.Picture, 0, 0
End sub

Scusa ... e' sempre lo stesso programma di cui abbiamo gia' parlato ...

Quando lo hai postato e l'ho provato, l'immagine si vedeva ...

Adesso cosa e' successo ...?

Con il codice che mostri non si puo' fare nulla ... bisogna esaminare tutto il progetto e capire il problema ...

quello che è successo è che documentandomi un po di più ho trovato il metodo IMAGELIST , che per quello che serve a me è perfetto.
Ho poi provato a buttare giù il codice postato ma purtroppo ol risultato non è quello atteso e non comprendo il problema.

L' ImageList non e' un metodo ma un Controllo ... (lo preciso perche' c'e' tanta differenza tra i due concetti).

In ogni caso, serve il progetto completo per capire ...

Ti allego il file , delucidami su dove ho sbagliato nel scrivere quel codice che a me sembrava giusto (ma non lo è .
Grazie

ho modificato un po' il odice da te' postato......
ho tolto l'utilizzo della prorpieta' item nella imagelista, assegnado l'indice direttamente con l'index della combo aumentato di uno , non ho usato la variabile im e nenahce la proprieta' paintpicture della picturebox in quanto usata cosi' non va' bene.....se vuoi usare la proprieta' paintpicture va' usata diersamente.....

Private Sub Combo1_Click(index As Integer)
 Dim i As Integer
 i = Combo1(index).ListIndex + 1
 Picture1.Picture = ImageList1(index).ListImages(i).Picture
End Sub 

Con il vostro aiuto e la vs pazienza ho risolto così il mio problema :

Dim i As Integer
Dim varimmagine As Object
i = Combo1(index).ListIndex + 1
Set varimmagine = ImageList1(index).ListImages(i).Picture
Picture1.PaintPicture varimmagine, 0, 0

N.B. : per le mie necessità è necessario avere una variabile immagine e la proprietà paintpicture.

Grazie a tutti.