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