关于键盘全局钩子的有关问题

关于键盘全局钩子的问题
Public Function MyKBHook(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If ncode = 0 Then
 If wParam = WM_KEYDOWN Then
CopyMemory mymsg, ByVal lParam, Len(mymsg)
If mymsg.vKey = 96 Then MsgBox ""
 End If
 End If
MyKBHook = CallNextHookEx(hHook, ncode, wParam, lParam)
End Function

以上代码可实现当按下小键盘上0这个数字键后 跳出msgbox。现在请问各位老师，如果我要要求按下一个组合键，比如alt+0才出现msgbox，If mymsg.vKey = 96 Then MsgBox ""这句代码该怎么写？


[解决办法]
http://download.csdn.net/detail/veron_04/1899084
[解决办法]

VB code

'以下代码在窗体中Private Sub Form_Load()    'KPD-Team 2000    'URL: http://www.allapi.net/    'E-Mail: KPDTeam@Allapi.net    'set a keyboard hook    hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)End SubPrivate Sub Form_Unload(Cancel As Integer)    'remove the windows-hook    UnhookWindowsHookEx hHookEnd Sub