rendre invisible le menu contextuel

Bonjour,
Sous un bouton et avec l'évênement mousemove, un menu s'affiche grâce au
code

Set bdc = CommandBars(chNomBarre_1)
bdc.ShowPopup

sous un autre bouton et avec le même évênement, je voudrais afficher un
autre menu.

Set bdc = CommandBars(chNomBarre_2)
bdc.ShowPopup

mais le menu chNomBarre_1 bloque chNomBarre_2

Manuellement il faut que je clique sur le formulaire pour voir disparaitre
chNomBarre_1 et ainsi pouvoir faire venir chNomBarre_2

Comment faire cela par code sans avoir a cliquer ?

Merci d'avance

Amicalement Jacques