متاسفانه راهی برای این کار نیست .
فقط با دابل کلیک میشه این کار رو انجام داد که باز هم اول submenu رو نشون میده


     

    Set ControlFile = RibbonBar.AddSystemButton()

    ControlFile.Id = 666

    ControlFile.IconId = 666

    ControlFile.CloseSubMenuOnClick = False

    ControlFile.Caption = "system"


بعد هم توی execute باید یک کیس باز کنید


Case 666

End


اگر راه بهتری پیدا کردید بنده رو هم مطلع کنید .

موفق باشید ./