Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long
В успешном случае функция возвращает дескриптор предыдущего активного окна
' Делаем окно Form1 активным окном для программы. ' Эта функция не будет делать окно приоритетным, ' если пользователь работает в настоящее время ' с отдельной программой Dim retval As Long ' возвращаемое значение ' Установим Form1 как активное окно приложения retval = SetActiveWindow(Form1.hWnd)