Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Static b_menu As Boolean
  If b_menu = False Then PopupMenu menu_test, , Command1.Left, Command1.Top + Command1.Height
  b_menu = Not b_menu
End Sub

Private Sub Command1_Click()
  'вызывается только нажатием кнопки
  '(для мыши и сенсорного экрана не вызывается, т.к. WM_LBUTTONDOWN мы отменили)
  'Debug.Print "Command1_Click"
  b_show_ButtonMenu = True
  Form1.PopupMenu Form1.menu_test, , Form1.Command1.Left, Form1.Command1.Top + Form1.Command1.Height
End Sub

Private Sub TimerUnShowButtonMenu_Timer()
  TimerUnShowButtonMenu.Enabled = False
  b_show_ButtonMenu = False
End Sub
'---
Public b_show_ButtonMenu As Boolean 'true если popup menu активно
Private Const WM_EXITMENULOOP = &H212
Private Const WM_LBUTTONDOWN = &H201

Public Function NewFormMeWindowProc( _
 ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Select Case Msg
    Case WM_EXITMENULOOP 'menu
      'Debug.Print "WM_EXITMENULOOP"
      'таймер не позволяет выполнить код WM_LBUTTONDOWN
      'повторного вызова меню при щелчке мышью по кнопке (при уже выведенном меню)
      'тоже самое для пальца(сенсорный экран)
      'для мыши достаточно 1мс
      'а вот с учетом пальца (опытным путем) нужно где-то 300мс, чтоб не глючило(ХЗ),
      'но это если сильно пальцем по экрану не елозить
      'если делать задержку больше,то нарушает поведение при щелчке мышью(опытным путем)
      If b_show_ButtonMenu Then Form1.TimerUnShowButtonMenu.Enabled = True
    Case Else
  End Select

  NewFormMeWindowProc = _
   CallWindowProc(OldFormMeWindowProc, hwnd, Msg, wParam, lParam)
 End Function

Public Function NewButtonWindowProc( _
 ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  'сабклассим конкретную кнопку Command1
  Select Case Msg
    Case WM_LBUTTONDOWN 'вызывается только при щелчке мышью
      'Debug.Print "WM_LBUTTONDOWN(Button)"
      Form1.Command1.SetFocus
      If b_show_ButtonMenu = False Then
        b_show_ButtonMenu = True
        Form1.PopupMenu Form1.menu_test, , Form1.Command1.Left, Form1.Command1.Top + Form1.Command1.Height
      Else
        b_show_ButtonMenu = False
      End If
      Exit Function 'отмена визуального нажатия кнопки и вызова Command_Click
    Case Else
  End Select

  NewButtonWindowProc = _
   CallWindowProc(OldButtonWindowProc, hwnd, Msg, wParam, lParam)
End Function