[VB.NET]ListView e immagine

[x69asterix]

dovrei popolare una ListView da una listbox dove sono presenti dei file immagine e fin qui non ci sono problemi, però ad essa dovrei caricare anche le sue immagini come posso procedere? io provo in questo modo ma senza risultato:

 For i As Long = 0 To FileListBox1.Items.Count - 1

                    ProgressBar1.Maximum = FileListBox1.Items.Count - 1
                    Application.DoEvents()
                    Label5.Text = Label5.Text + 1
                    Label4.Text = FileListBox1.Items(i.ToString)
                    ImageList1.Images.Add(Image.FromFile(FileListBox1.Path + "\" + FileListBox1.Items(i)))
                    PictureBox1.Load(FileListBox1.Path + "\" + FileListBox1.Items(i.ToString))
                    ListView1.Items.Add(Label4.Text, Label4.Text, i.ToString)
                    ListView1.Refresh()
                    bolResponso = minOggetto.Assoluto(FileListBox1.Path + "\" + FileListBox1.Items(i.ToString), Application.StartupPath + "\images\" + FileListBox1.Items(i.ToString), 730, 450)
                    ProgressBar1.Value = i
                Next

la ListView mi viene popolata ma senza immagine!

[x69asterix]

ok,
risolto così:

 For i As Long = 0 To FileListBox1.Items.Count - 1
                    ProgressBar1.Maximum = FileListBox1.Items.Count - 1
                    Application.DoEvents()
                    Label4.Text = FileListBox1.Items(i.ToString)
                    ImageList1.Images.Add(Image.FromFile(FileListBox1.Path + "\" + FileListBox1.Items(i.ToString)))
                    PictureBox1.Load(FileListBox1.Path + "\" + FileListBox1.Items(i.ToString))
                    bolResponso = minOggetto.Assoluto(FileListBox1.Path + "\" + FileListBox1.Items(i.ToString), Application.StartupPath + "\images\" + FileListBox1.Items(i.ToString), 730, 450)
                    ProgressBar1.Value = i
                Next

                For s As Int32 = 0 To FileListBox1.Items.Count - 1
                    Application.DoEvents()
                    ListView1.Items.Add(FileListBox1.Items(s.ToString), s)
                Next


                MessageBox.Show("Conversione eseguita!".ToString + vbCrLf + "sono stati convertiti ".ToString & FileListBox1.Items.Count & " file".ToString, "Fine processo", MessageBoxButtons.OK, MessageBoxIcon.Information)

0