Dim count As Integer = 1
        For Each file() As String In Me.ListaFile
            Try
                lblStato.Text = "Copia in corso... Copia file " + CStr(count) + " di " + CStr(ListaFile.Count)
                My.Computer.FileSystem.CopyFile(file(0), destinazione + "\" + file(1), Microsoft.VisualBasic.FileIO.UIOption.AllDialogs)
                count += 1
            Catch ex As System.OperationCanceledException
                lblStato.Text = "Copia annullata."
                Exit Sub
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Next
        lblStato.Text = "Copia eseguita."