Необходимо контролировать запущена ли некая программа и развернуто ли ее окно - VB

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

Необходимо контролировать запущена ли некая программа и развернуто ли ее окно. Если с поискам необходимого процесса все очевидно. То с определением активного окна этой программы возникают трудности. Подскажите как получить идентификатор окна стороннего приложения являющегося активным на данный момент и проверить принадлежит ли оно заданному процессу?

Решение задачи: «Необходимо контролировать запущена ли некая программа и развернуто ли ее окно»

textual
                            Листинг программы 
                        
                            Declare Function GetForegroundWindow Lib "user32.dll" () As Long
 
'Get the handle of the foreground window
        Ret = GetForegroundWindow()