Private Sub dlgApri_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles dlgApri.FileOk
        Dim listI As ListViewItem
        For Me.i = 0 To dlgApri.FileNames.Count - 1
            listI = New ListViewItem
            'la funzione GetFileName permette di estrarre il nome del file dato il suo percorso
            listI.Text = GetFileName(dlgApri.FileNames.ElementAt(i))
            listI.SubItems.Add(dlgApri.FileNames.ElementAt(i))
            listI.ImageIndex = 0 'indica l'indice dell'immagine di ImageList1 da inserire accanto ad ogni elemento della lista
            lsvAll.Items.Add(listI)
        Next
    End Sub