[VB6] Icone in una listview

[multijet]

io farei cosi':
1)setta la listview in modalita' report
2)setta elenco immagini normali e ridotte sulla list image che hai usato
3)
Dim mitem
Do Until Rs3.EOF
On Error Resume Next
Set mitem = ListView3.ListItems.Add(, , Rs3!Piano, "piano", "piano")
mitem.SubItems(1) = Rs3!PuntoPiano
mitem.SubItems(2) = Int(Rs3!FrequenzaCorretta)
Rs3.MoveNext
Loop
Rs3.Close

rs3 e' il recordset da me usato.Inserisci il tuo
rs3!Piano e' il nome del campo del mio recorset .Inserisci il tuo campo
i campi "piano","piano" sono i nomi dell'icona caricata nella image list.

Se non sono stato chiaro fammi sapere