With lvwTiere.Items
            Dim i As Integer
            For i = 0 To .Count - 1
                .Item(i).SubItems(6).Text = DateDiff("d", Now, .Item( _
                  i).SubItems(7).Text)
                Select Case .Item(i).SubItems(6).Text
                    Case Is = "1" Or "2" Or "3"
                        .Item(i).SubItems(6).BackColor = Color.Red
                End Select
                .Item(i).UseItemStyleForSubItems = False
            Next
        End With

fg viperbone