'PerformanceCounter für Prozessorauslastung
        perfCounter = New System.Diagnostics.PerformanceCounter
        perfCounter.CategoryName = "Processor"
        perfCounter.CounterName = "% Processor Time"
        perfCounter.InstanceName = "_Total"

 Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Timer2.Tick
        Try
            'CPU Auslastung in Statusbarpanel6 ausgeben
            Me.ToolStripStatusLabel6.Text = ("CPU Ausl.:") & CInt( _
              perfCounter.NextValue) & "%"
 
            'Abfrage
            If CInt(perfCounter.NextValue) > 20 = True Then _
              'Me.ToolStripStatusLabel6.Text = ("CPU Ausl.:") & CInt( 
            ' perfCounter.NextValue) & "%" > 10 = True Then
                'Farbe coral wenn CPU Auslastung über dem Grenzwert liegt
                Me.ToolStripStatusLabel6.BackColor = Color.LightCoral
            ElseIf CInt(perfCounter.NextValue) < 20 = True Then
                'Farbe grün wenn CPU Auslastung innerhalb des Grenzwertes
                Me.ToolStripStatusLabel6.BackColor = Color.LightGreen
            End If
            'Fehlerbehandlung
        Catch ex As Exception
            MessageBox.Show("Error: " & ex.Message.ToString, _
            "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

VB@rchiv its the Best