Pb de création de menu en MapBasic

Bonjour;

voici un simple code en MapBasic de création de menu;

Declare Sub Main
Sub Main

Create Menu "Menu_hiérarchique" As
"Sous-Menu_hiérarchique-1" ,
"Sous-Menu_hiérarchique-2"

Create Menu "Menu1" As
"Sous-Menu 1-1" ,
"Sous-Menu 1-2" ,
"Menu hiérarchique" As "Menu_hiérarchique"

Create Menu "Menu2" As
"Sous-Menu 2-1" ,
"Sous-Menu 2-2" HelpMsg "help",
"Petit message d'aide Sous-Menu 2-2",
"Sous-Menu 2-3"

end Sub

g pas trouvé un pb de compilation; mais à l'exécution j'aurais rien;
aucun menu ne s'ajoute ou ne s'affiche;

merci de votre collaboration & bonne journée