Determine Explorer Shell ProcessID

I used the following API's to get me the data of all processes on the computer. Here's what i used

VB Code:

'consts
Private Const TH32CS_SNAPPROCESS = &H2
 
' Types
Private Type PROCESSENTRY32
         dwSize As Long
         cntUsage As Long
         th32ProcessID As Long           ' This process
         th32DefaultHeapID As Long
         th32ModuleID As Long            ' Associated exe
         cntThreads As Long
         th32ParentProcessID As Long     ' This process's parent process
         pcPriClassBase As Long          ' Base priority of process threads
         dwFlags As Long
         szExeFile As String * 260  ' MAX_PATH
End Type
 
' Functions used
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" ( _
         ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" ( _
         ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" ( _
         ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
 
'Start of function or sub
          Dim hWND As Long
          Dim ProData As PROCESSENTRY32
          Dim Ret As Long
          Ret = 1
          ProData.dwSize = Len(ProData) ' sets the ProData.dwSize to the size of the structure
          hWND = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0) ' Create snapshot of the first process
          Ret = Process32First(hWND, ProData) ' Gets handle of first process
          Do Until Ret = 0    ' get the rest of the processes
              debug.print ProData.szExeFile
              debug.print ProData.th32ProcessID
          Ret = Process32Next(hWND, ProData) ' gets next Process handle
          Loop
'end of sub or function

hope this helps. This gets all process ID's and the names so you just have to filter for Explorer.exe