Загруженность процессора?

Option Explicit
 
Private Declare Function PdhOpenQuery Lib "Pdh.Dll" Alias "PdhVbOpenQuery" _
          (ByRef QueryHandle As Long) As Long
Private Declare Function PdhAddCounter Lib "Pdh.Dll" Alias "PdhVbAddCounter" (ByVal QueryHandle As Long, _
            ByVal CounterPath As String, ByRef CounterHandle As Long) As Long
Private Declare Function PdhCollectQueryData Lib "Pdh.Dll" (ByVal QueryHandle As Long) As Long
Private Declare Function PdhGetDoubleCounterValue Lib "Pdh.Dll" Alias "PdhVbGetDoubleCounterValue" _
          (ByVal CounterHandle As Long, ByRef CounterStatus As Long) As Double
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  
Dim QueryHandle As Long
Dim CounterHandle As Long
Dim Result As Long
 
Private Sub Form_Load()
    Me.Show
    Text1.Text = ""
    Text1.FontSize = 18
    Timer1.Interval = 2000
    Result = PdhOpenQuery(QueryHandle)
    Result = PdhAddCounter(QueryHandle, "\Процессор(_Total)\% загруженности процессора", CounterHandle)
    Timer1_Timer
End Sub
 
Private Sub Timer1_Timer()
    Dim Status As Long
    
    Result = PdhCollectQueryData(QueryHandle)
    Text1.Text = Format(PdhGetDoubleCounterValue(CounterHandle, Status), "##0.00") & "%"
End Sub

Private Declare Sub PdhLookupPerfNameByIndex Lib "PDH.DLL" _
    Alias "PdhLookupPerfNameByIndexA" (ByVal szMachineName As String, _
    ByVal dwNameIndex As Long, _
    ByVal szNameBuffer As String, _
    ByRef pcchNameBufferSize As Long)
Const MAX_PATH As Integer = 260
Const COUNTERPERF_PROCESSOR = 238
Const COUNTERPERF_PERCENTPROCESSORTIME = 6
Private Sub Command1_Click()
 
Dim Instance As String ' as Integer тогда можно
Instance = "_Total"    ' по ядрам 0,1,2,3 и т.д
 
Dim NameLen As Long
    Dim ObjectName As String, CounterName As String
    
    NameLen = MAX_PATH
    ObjectName = Space$(NameLen)
    PdhLookupPerfNameByIndex ByVal vbNullString, COUNTERPERF_PROCESSOR, ObjectName, NameLen
    ObjectName = Left$(ObjectName, NameLen - 1)
        
    NameLen = MAX_PATH
    CounterName = Space$(NameLen)
    PdhLookupPerfNameByIndex ByVal vbNullString, COUNTERPERF_PERCENTPROCESSORTIME, CounterName, NameLen
    Print "\" & ObjectName & "(" & Instance & ")\" & Left$(CounterName, NameLen - 1)
 
End Sub