Private CPUCounter As New PerformanceCounter("Processor", "% Processor Time", "_Total") Dim cpu As Integer = CInt(CPUCounter.NextValue)