Declare Function EndMenu Lib "user32.dll" () As Long
EndMenu завершает активное меню вызывающего потока. Если платформа не поддерживает функцию EndMenu, отправьте владельцу активного меню сообщение WM_CANCELMODE.
Фунция не имеет параметров
' Добавьте в проект таймер и создайте непольшое всплывающее меню Private Sub Form_Load() ' установим интервал в 2 секунды Timer1.Interval = 3000 End Sub Private Sub Form_Click() ' показываем меню PopupMenu mnuPopup ' включаем таймер Timer1.Enabled = True End Sub Private Sub Timer1_Timer() ' Если меню еще видимо, то закрываем его EndMenu ' Останавливаем таймер Timer1.Enabled = False End Sub
WM_CANCELMODE