Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Функция GetWindowThreadProcessId находит идентификаторы нити и процесса, связанных с заданным окном
Функция возвращает идентификатор нити, которой принадлежит окно
' Смотри пример функции AttachThreadInput