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()
Run Code Online (Sandbox Code Playgroud)