Вот тебе лекарство!
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_NULL = 0
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
SetForegroundWindow Me.hwnd
PopupMenu mnuAppPopup
PostMessage Me.hwnd, WM_NULL, 0, 0
На здоровьеце!

SELECT * FROM girls WHERE tits NOT NULL AND age BETWEEN 18 AND 25 ORDER BY Beauty