For indexalb = 0 To Me.ListView2.Items.Count - 1
            Me.ListView2.Items(indexalb).Selected = True
            My.Application.DoEvents()
            Dim r As Rectangle
            r = ListView2.Items(indexalb).Bounds()
            r.Width = ListView2.Columns(2).Width
            Me.ProgressBar1.SetBounds(333, r.Y + 20, r.Width, r.Height - 2)
            Me.ProgressBar1.Visible = True
            My.Application.DoEvents()
            Try
                ObjC59.CodAlbergo = Convert.ToInt32(Me.ListView2.SelectedItems(indexalb).Text)
                ObjC59.CodiceComAlbergo = Convert.ToInt32(Me.ListView2.SelectedItems(indexalb).SubItems(3).Text)
                ObjC59.DallaData = CDate(Me.MaskedTextBox1.Text)
                ObjC59.AllaData = CDate(Me.MaskedTextBox2.Text)
                C59Coll = Read_record.NumeroRecAllAlb(ObjC59)
                For i As Integer = 0 To C59Coll.Count - 1
                    valmax = C59Coll.Item(i).NumeroRecord
                    totrecordalb = C59Coll.Item(i).NumeroRecord
                Next
                Me.ProgressBar1.Maximum = valmax
            Catch ex As Exception
                MessageBox.Show("Attenzione errore interno", "Receive.Net", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Me.ProgressBar1.Visible = False
                Return
            End Try
            Try
                elaboraalberghi(Convert.ToInt32(ListView2.SelectedItems(indexalb).Text), Convert.ToInt32(ListView2.SelectedItems(indexalb).SubItems(3).Text), CDate(Me.MaskedTextBox1.Text), CDate(Me.MaskedTextBox2.Text))
            Catch ex As Exception
                MessageBox.Show("Attenzione impossibile procedere con la creazione dei file C59", "Receive.Net", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Me.ProgressBar1.Value = 0 : Me.ProgressBar1.Visible = False
                Return
            End Try
            My.Application.DoEvents()
            Me.ProgressBar1.Value = 0
            Me.Label5.Text = "Attesa elaborazione..." : Me.Label5.Refresh()
            My.Application.DoEvents()
        Next