Есть такая функция API BringWindowToTop, которая устанавливает указанное окно поверх других.

описание функции:
Declare Function BringWindowToTop Lib "user32.dll" (ByVal hwnd As Long) As Long
Параметры
hwnd — дескриптор окна
В успешном случае функция возвращает значение отличное от нуля.

' Установим окно Form2 поверх окна Form1.
Dim retval As Long ' возвращаемое значение

' Очевидно, это будет работать, если другие окна — уже поверх Form2.
retval = BringWindowToTop(Form2.hWnd)