It works with everything from win95 to win 2000
(WinXP is untested but should work)

1 to 32 processors.


Very Simple to use:

NOTE: m_oCPULoad.GetCPUUsage(lCPUIndex) 
is 1 based but could easily be changed to 0 based


'--------------------------------------------------------------
Private Sub tmrUpdate_Timer()
Dim lCPULoad As Long
Dim lCPUIndex As Long
    
    'Prevent Re-entrency
    If m_bBusy = True Then Exit Sub
    
    m_bBusy = True
    
    'Gather Current Information
    m_oCPULoad.CollectCPUData
    
    For lCPUIndex = 1 To m_lCPUs
        'Process the information
        lCPULoad = m_oCPULoad.GetCPUUsage(lCPUIndex)
        
        'Update the UI
        prgCPULoad(lCPUIndex - 1).Value = lCPULoad
        lblLoad(lCPUIndex - 1).Caption = Format(lCPULoad, "0") & "%"
    Next lCPUIndex
    
    m_bBusy = False
    
End Sub
'--------------------------------------------------------------





I got the Idea from:
BiCPU http://www.nospaceleft.com.

I ported most of my source from:
adCpuUsage http://www.aldyn.ru


Shawn Weidman
redline@pencapchew.com