Public Class Form1
    Inherits System.Windows.Forms.Form
 
 
 
    Private perfCounter As System.Diagnostics.PerformanceCounter
 
 
 
    Private Function GetCpuLoad() As Integer
        Return Integer.Parse(Format(perfCounter.NextValue, "##0"))
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        perfCounter.CategoryName = "Processor"
        perfCounter.CounterName = "% Processor Time"
        perfCounter.InstanceName = "_Total"
        TextBox1.Text = GetCpuLoad()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        perfCounter = New System.Diagnostics.PerformanceCounter
    End Sub
End Class