I'm working on VB6 project where I need to have keyboard short-cuts for Buttons on Toolbar Control. To accomplish this, I have used Win32 Hooks library from [vbAccelerator](http://www.vbaccelerator.com/home/vb/code/libraries/hooks/vbAccelerator_Hook_Library/article.asp). Here's my `IWindowsHook_HookProc` function, that I use to retrieve Key strokes & perform action based on pressed short-cut (`Ctrl` + `N` for New, `Ctrl` + `O` for Open and `Ctrl` + `S` for Save) , but the I don't know what's wrong with the code that crashes my application along with VB6 IDE. The function is currently incomplete as I just tried to identify `Ctrl` + `N` key combination to test this feature. Please help me out.... :-|

```
Private Function IWindowsHook_HookProc(ByVal eType As EHTHookTypeConstants, ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long, bConsume As Boolean) As Long
If KeyboardlParam(lParam).KeyDown Then
     Select Case True
           Case Me.ActiveControl = Me
                 If wParam = vbKeyControl + vbKeyN Then
                        frmNewReport.show
                        bConsume = True
                 End If
     End Select
End If

```