Форма поверх рабочего стола (вне oкна MS Access)

У формы Свойство «Всплывающее окно» (PopUp) - должно быть = TRUE
Скрывает окно Access -  и форма остается поверх рабочего стола.

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hwndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _

ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

'*********************************

'Форма, которая должна всплывать делается всплывающей и при открытии базы запускается функция asdf:

Public Function asdf()

DoCmd.OpenForm "App"

Dim HWND_TOPMOST, SWP_SHOWWINDOW

SetWindowPos Application.hWndAccessApp, HWND_TOPMOST, -30, -30, 0, 0, SWP_SHOWWINDOW

End Function

'Здесь я открываю форму и делаю координаты окна приложения за пределами

'экрана и устанавливаю размер окна 0х0