NumberOfCPUs – The number of processors
Const HKEY_LOCAL_MACHINE = &H80000002′ Return the number of processors” Requires the CheckRegistryKey routineFunction GetNumberOfCPUs() As Integer Dim keyName As String ‘ loop on the subkeys of HKEY_LOCAL_MACHINEHardwareDescriptionSystem ‘ CentralProcessor ‘