Procedura che stampa a video la percentuale di CPU utilizzata. Ovviamente deve essere adattata ai nostri scopi. Viene fornita in versione "per console". La procedura cicla 10000 volte per darvi il tempo di aprire programmi e vedere come vengono incrementate le percentuali
Sub cpucount()
Dim pcpu As New PerformanceCounter("Processore", "% Tempo Processore", "_Total")
Dim I As Integer
Do
Dim v1 As CounterSample = pcpu.NextSample
System.Threading.Thread.CurrentThread.Sleep(100)
Dim v2 As CounterSample = pcpu.NextSample
I += 1
Console.WriteLine(CounterSample.Calculate(v1, v2).ToString)
Loop Until I > 10000
Console.WriteLine("fine")
Console.ReadLine()
End Sub