Option Explicit
Private CoolbarButton As Integer
Private nAction As Integer

Private Sub Coolbar1_ButtonClick(...)
  ...
 
  ' PopUp-Menü manuell aufrufen
  ' unter Access muss der Aufruf aus dem Formular-Timer erfolgen!
  CoolbarButton = nButton
  nAction = 1
  Me.TimerInterval = 50
End Sub

Private Sub Form_Timer()
  Me.TimerInterval = 0
  Select Case nAction
    Case 1
      Coolbar1.Buttons(CoolbarButton).ShowPopUpMenu
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de