cod*_*zen 20
Import Namespace System.Diagnostics
' ...
Dim cpu as New PerformanceCounter()
With cpu
    .CategoryName = "Processor"
    .CounterName = "% Processor Time"
    .InstanceName = "_Total"
End With
' ...
myLabel.Text = cpu.NextValue()