Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        Me.Label5.Text = NomeAlb & " - " & "Elaborazione record: " & val & "/" & totrecordalb & " in corso..."
        Me.ProgressBar1.Value = e.ProgressPercentage
        Me.ListView2.BeginUpdate()
        Me.ListView2.Items(indexalb).SubItems(2).Text = val & "/" & totrecordalb
        Me.ListView2.Update()
    End Sub