Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim dos As New Dictionary(Of String, ListViewItem)
 
        For Each lvi As ListViewItem In ListView1.Items
            If dos.ContainsKey(lvi.Text) Then
                lvi.BackColor = Color.YellowGreen
                dos(lvi.Text).BackColor = Color.YellowGreen
            Else
                dos.Add(lvi.Text, lvi)
            End If
        Next
 
    End Sub

________
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