VBasic 给菜单控件增加快捷键

怎么利用VBasic语言给菜单控件增加快捷键，就像word一样按一个组合可以调出命令来？

http://www.cnblogs.com/EnCaL/articles/2417343.html