For indexalb = 0 To Me.ListView2.Items.Count - 1
            Me.ListView2.Items(indexalb).Selected = True
            Try
                elaboraalberghi(Me.ListView2.SelectedItems(indexalb).Text, CDate(Me.MaskedTextBox1.Text), CDate(Me.MaskedTextBox2.Text))
                Me.ListView2.EndUpdate()
            Catch ex As Exception
                MessageBox.Show("Attenzione impossibile procedere con la creazione dei file C59", "Receive.Net", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Return
            End Try
        Next