Imports System
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Module Module1
    Public cpuCounter As PerformanceCounter
    Public Sub InitialisierePerformanceCounter()
        cpuCounter = New PerformanceCounter()
        cpuCounter.CategoryName = "Processor"
        cpuCounter.CounterName = "% Processor Time"
        cpuCounter.InstanceName = "_Total" 
        ' "_Total" entspricht der gesamten CPU Auslastung, Bei Computern mit 
        ' mehr als 1 logischem Prozessor: "0" dem ersten Core, "1" dem 
        ' zweiten...
    End Sub
    Public Function GetCPUusage() As Single        
        Return cpuCounter.NextValue()
    End Function    
    Public Sub Main()
        InitialisierePerformanceCounter()
        Do
            Console.WriteLine(GetCPUusage())
            System.Threading.Thread.Sleep(1000)
        Loop
    End Sub
End Module