在菜单的Click事件取得菜单名

在菜单的Click事件获得菜单名
例如菜单名为menu_fileopen，在menu_fileopen_Click事件中获得其menuname:"menu_fileopen"

[最优解释]
可以hook整个form的WM_COMMAND消息，然后得到菜单的id，根据id得到菜单的名称（这一步需要你做个数组用于一一对应）。太复杂了，还不如直接在每个click事件里写死呢。
[其他解释]
  Dim i As Integer
  For i = 0 To Count - 1
    If TypeName(Controls(i)) = "Menu" Then  '判断是否是菜单
      Print Controls(i).Caption '显示菜单标题
      Print Controls(i).Name    '显示菜单名称
    End If
  Next

[其他解释]
试试钩子行不行。