For i As Integer = 0 To .Count - 1
                Select Case .Item(i).SubItems(2).Text
                    Case "1", "2", "3"
                        ' Hintergrundfarbe aktivieren
                        .Item(i).UseItemStyleForSubItems = False
 
                        ' Neues Subitem erstellen
                        Dim lvsi As New ListViewItem.ListViewSubItem(.Item(i), _
                          .Item(i).SubItems(2).Text)
 
                        ' Subitem an gewünschter stelle löschen
                        .Item(i).SubItems.RemoveAt(2)
 
                        ' Hitergrundfrabe festlegen
                        lvsi.BackColor = Color.Red
 
                        ' Subitem wieder einfügen
                        .Item(i).SubItems.Insert(2, lvsi)
                End Select
            Next

fg viperbone