Retrieve the Number of Threads Running on the Current Machine

Version Compatibility:

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Option Explicit ' Note that if you declare the lpData parameter as String, you ' must pass it By Value. Private Declare Function RegQueryValueEx Lib "advapi32.dll" _ Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName _ As String, ByVal lpReserved As Long, lpType As Long, lpData As _ Any, lpcbData As Long) As Long Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias _ "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _ ByVal ulOptions As Long, ByVal samDesired As Long, _ phkResult As Long) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" _ (ByVal hKey As Long) As Long Private Const KEY_QUERY_VALUE = &H1 Private Const HKEY_DYN_DATA As Long = &H80000006 Private Const NUM_THREADS = "KERNEL\Threads" Private Const STAT_DATA = "PerfStats\StatData"