'Ausgeben des String
 
   For an1 As Integer = 0 To UBound(strarr)
 
          ListView1.Items.Add(Trim(strarr(an1)))
 
   Next
 
 
'LISTVIEW EINFÄRBEN
 
                For Each lItm As ListViewItem In ListView1.Items
                    Application.DoEvents()
                    If InProgress Then
                        lItm.BackColor = Color.LightGray
                        InProgress = False
                    Else
                        InProgress = True
                    End If
                Next