Olha Trush pelo q entendi no evento keydown do seu form onde está o seu menu faça assim:
'***************************************************
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA And Shift = vbShiftMask + vbCtrlMask Then
MsgBox "ctrl+shift+A"
End If
'ou
If KeyCode = vbKeyM And Shift = vbAltMask + vbCtrlMask Then
MsgBox "ctrl + alt + M"
End If
End Sub
'***************************************************
É só um exemplo... e para o usuário saber q as teclas de atalho são "Ctrl + Shift + A" no menu editor coloque no caption "Item a Ctrl+Shift+A" como se vc tivesse colocado o shortcurt do vb. Ah e não se esqueça de colocar a propriedade "keyPreview" = True do seu form.
Será q serve? Bom, tentei...
t+
