如何动态使用VB快捷键？

我有个功能需要实现VB.Form上的菜单的动态添加、修改、删除功能，现遇到以下一个问题一直未能克服，特来向大师们求教：
1、我已有的Form上的菜单是用VB自带的MenuEditor生成的，里面的有个别的菜单是有快捷键的，我子类化了此窗体。现在鼠标点击此菜单的时候，我都能感应到相应的消息（WM_COMMAND），可是我用快捷键去激活菜单，VBIDE里的代码能相应，但是我子类化的过程却收不到相应消息，请问是什么原因造成的呢？

Form菜单代码：（快捷键是：Ctrl+N)
VB code:

Private Sub mnuFileOpen_Click()
'/* 快捷键及鼠标点击都能执行到
MsgBox "FormMenu Clicked!" & mnuFileOpen.Name
End Sub



子类化代码：（快捷键激活菜单时，下面过程捕捉不到，但是点击是可以捕捉到得）
VB code:

Private Function ISubclass_WindowProc(ByVal Hwnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long, Optional bCancel As Boolean = False) As Long
Dim tWinMessage As MSG
Dim lMenuID As Long
Dim oMenuItem As MenuItem
Select Case iMsg
Case WM_COMMAND
If lParam = 0 Then
lMenuID = LOWORD(wParam)
Set oMenuItem = m_oMenuHelper.FindMenuItemByID(lMenuID)
If Not oMenuItem Is Nothing Then