How to create adaptive menues

[Evgeniy]

Hi.
There is a need to create menu and make it active for
some users and disable standard menu for them.
There is property CommandBars.Adaptive which
can be set to true or false. As far as I understood TRUE
means a possibility to create or edit adaptive menus.
But I could not find the methods to create them.
Does anybody know how to do it?
Thank you.
Evgeniy.

 

[DC]

Dim objParentBar As CommandBarControl
'Create the top level menu
Set objParentBar = CommandBars("Menu Bar").Controls.Add _
(Type:=msoControlPopup, Before:=9)
objParentBar.Caption = "New &Menu"

'Create Submenus
Dim objToolBarButton As CommandBarButton
Set objToolBarButton = CommandBars("Menu Bar").Controls _
("SCT Menu").Controls.Add(Type:=msoControlButton)
objToolBarButton.Caption = <SubMenuName>
objToolBarButton.OnAction = <MacroName>

Deepu