Declare Function GetWindowThreadProcessId Lib "user32.dll" _ 
                 (ByVal hWnd As Long,lpdwProcessId As Long) As Long
 
 
Public Function Test(lngHWnd As Long, ProcessID As Long)
Dim Result&
      Result = GetWindowThreadProcessId(lngHWnd, ProcessID)
      IP = Result
End Function

 ID = Shell(Programm, vbNormalNoFocus)