另类方法实现VBA窗体Office风格菜单

Office的菜单是Office产品的一大看点，给人一种耳目一新的感觉，大概这也是我喜欢Office的原因之一吧，使用Office菜单的确是一种享受。

今日突发奇想，想在VBA窗体中也实现这一功能，想想做做，花了好几个小时的时间，终于算是基本实现，功能也较全了。例子中演示了相当于单选功能（Radio菜单）,也演示了复选功能（Check菜单）,同时包含菜单项的Enabled的设置和子菜单弹出式菜单的方法.。遗留下一个MouseMove细节没有实现。不过已经想到一个方法了，再想想还有没有其它好的方法。这个先贴上来：

示图:

文件:http://blog.excelhome.net/UploadFiles/2006-6/68551342.zip