Public Partial Class MainForm        
        Sub lvAuslesen()
		Dim lvx As New ListView
		lvx = Me.listView1
		lvx.Invoke(Sub()
			For Each item1 As ListViewItem In lvx.items
				Select Case item1.Text
					Case Is = "1"
						'....
					Case Is = "2"
						'....
					Case Is = "3"
						'....
					Case Else
						'....
				End Select
				Thread.Sleep(20)
			Next
		End Sub)
	End Sub
 
 
	Sub Button1Click(sender As Object, e As EventArgs)
		Me.zweiterthread()
	End Sub
	Sub zweiterthread()
		Dim MyThread as New Thread(AddressOf lvAuslesen)
		MyThread.Start		
	End Sub
End Class