Ho risolto!!!
codice:
Private Sub PopoloImmagini()
lvwImmagini.Items.Clear()
Dim li As ListViewItem
Dim i As Integer = 0
Dim dir As DirectoryInfo = New DirectoryInfo(Path)
Dim file As FileInfo
Dim imageList As New ImageList()
imageList.ImageSize = New Size(200, 200)
imageList.ColorDepth = ColorDepth.Depth32Bit
imageList.TransparentColor = Color.Transparent
lvwImmagini.LargeImageList = imageList
For Each file In dir.GetFiles
imageList.Images.Add(Bitmap.FromFile(file.FullName))
li = lvwImmagini.Items.Add(file.Name.ToString)
li.ImageIndex = i
i = i + 1
Next
End Sub
solo che non so come fare per impostare le immagini della ListView con Width='150' e Height='che si adatti automaticamente'
sicuramente devo agire nella ImageList ma non so come !!!