Private LoadList As New Threading.Thread(AddressOf caricaalberghi)

    Private Sub caricaalberghi()
        Me.ListView2.Items.Clear()
        AlbColl = Read_record.CaricaRecAll(ObjAlb, 1)
        Me.ListView2.BeginUpdate()
        For i As Integer = 0 To AlbColl.Count - 1
            REM ==========Carica dati in listview senza lettura nel db==========
            litem = ListView2.Items.Add(String.Format("{0:D4}", CInt(AlbColl.Item(i).CodiceAlbergo)))
            Sublist = litem.SubItems.Add(AlbColl.Item(i).Descrizione)
            Sublist = litem.SubItems.Add(String.Empty)
            Sublist = litem.SubItems.Add(Convert.ToString(AlbColl.Item(i).CodiceComune))
            System.Threading.Thread.Sleep(1000)
        Next i
        Me.ListView2.EndUpdate()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        LoadList.Start()
    End Sub