Sub New()
 
        ' This call is required by the Windows Form Designer.
        InitializeComponent()
 
        ' Add any initialization after the InitializeComponent() call.
        System.Threading.ThreadPool.QueueUserWorkItem(New _
          Threading.WaitCallback(AddressOf CheckValues), Nothing)
 
    End Sub
 
    Private Sub CheckValues(ByVal state As Object)
        Dim pcProcessor As New Diagnostics.PerformanceCounter("Processor", "%" & _
          "Processor Time", "_Total")
 
        While True
            Me.Invoke(New DelUpdateValues(AddressOf UpdateValues), _
              pcProcessor.NextValue())
 
            Threading.Thread.Sleep(1000)
        End While
 
    End Sub
 
    Private Delegate Sub DelUpdateValues(ByVal processor As Single)
 
    Private Sub UpdateValues(ByVal processor As Single)
        lblProcessor.Text = Math.Round(processor, 0).ToString() & " %"
    End Sub