Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As _
  Long, lpdwProcessId As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
 
 
Dim AhWnD&, TaskID&, Result&
AhWnD = GetForegroundWindow
Result = GetWindowThreadProcessId(AhWnD, TaskID)