If ListView1.Items.Count > 0 Then ''Gibt es die Zeile Überhapt
 
                    'wenn keine Fehlbotschaften gezählt werden, dann:
                    If ListView1.Items(i).SubItems(5).Text = "0" Then ''Keine _
                      Fehlbotschaften
                        l_val = Sensors(i).p_val
                        If l_val >= CLng(Sensors(i).green) Then 'innerhalb 
                        ' der "Gut" Toleranz
                            ListView1.Items(i).SubItems(1).BackColor = _
                              Color.GreenYellow
                        ElseIf l_val < CLng(Sensors(i).green) And l_val >= _
                        CLng(Sensors(i).yellow) Then 'Innerhalb des Warnbereichs
                            ListView1.Items(i).SubItems(1).BackColor = _
                            Color.Yellow
                        Else 'Hier haben wir ein Problem
                             ListView1.Items(i).SubItems(1).BackColor = _
                               Color.Red
                        End If
                    Else ' Keine Botschaften vom Sensor
                        ListView1.Items(i).SubItems(1).BackColor = Color.Violet
                    End If
                End If