Dim InProgress As Boolean
        For Each s As String In strarr
            Dim lItm As ListViewItem = ListView1.Items.Add(Trim(s))
            If InProgress Then
                lItm.BackColor = Color.LightGray
            End If
            InProgress = Not InProgress
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist