Sub lvAuslesen()
        Dim lvx As ListView = listview1
 
        For i As Integer = 0 To lvx.Items.Count-1
            lvx.Invoke(Sub()                           
                       'Hier Item lesen oder ändern 
                       lvx.Items(i).Text = "war " & lvx.Items(i).Text
                       End Sub)
 
            'weitere Aktivitäten mit den gelesenen Infos
            Threading.Thread.Sleep(100)
        Next i      
    End Sub