Как по дескриптору процесса получить hWnd порождённого этим процессом окна? - VB

Формулировка задачи:

Как по дескриптору процесса получить hWnd порождённого этим процессом окна? Цель: запустить приложение через Shell (или API CreateProcess), и затем временно заблокировать окошко этого приложения через LockWindowUpdate.

Решение задачи: «Как по дескриптору процесса получить hWnd порождённого этим процессом окна?»

textual
                            Листинг программы 
                        

                            Public Function EnumThreadWndProc(ByVal hWnd As Long, ByVal lParam As Long) As Long
    ' Что-нибудь делаем...
    EnumThreadWndProc = 1
End Function
                        