Private perfCounter As System.Diagnostics.PerformanceCounter
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        perfCounter = New System.Diagnostics.PerformanceCounter
        perfCounter.CategoryName = "Processor"
        perfCounter.CounterName = "% Processor Time"
        perfCounter.InstanceName = "_Total"
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Me.StatusBarPanel3.Text = ("CPU Ausl.:") & perfCounter.NextValue & "%"
    End Sub

VB@rchiv its the Best