Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
BringWindowToTop устанавливает указанное окно поверх других. Эта функция имеет тот же эффект, как и использование SetWindowPos для размещения окна поверх других.
' Установим окно Form2 поверх окна Form1 Dim retval As Long ' возвращаемое значение ' Очевидно, это будет работать, ' если другие окна уже поверх Form2 retval = BringWindowToTop(Form2.hWnd)