Private perfCounter As System.Diagnostics.PerformanceCounter
 
    Public Sub New()
        perfCounter = New System.Diagnostics.PerformanceCounter
        perfCounter.CategoryName = "Processor"
        perfCounter.CounterName = "% Processor Time"
        perfCounter.InstanceName = "_Total"
    End Sub
 
    Private Function GetCpuLoad() As Integer
        Return Integer.Parse(Format(perfCounter.NextValue, "##0"))
    End Function