VB设置快捷键的例子，自定义打开某程序的快捷键，这只是一个示例，演示原理和具体的代码实现：

　　Dim bCancel As Boolean 用于判断是否退出程序

　　Public Sub RegFastKey() 注册快捷键

　　 Dim ret As Long

　　 bCancel = False

　　 ret = RegisterHotKey(hwnd, &HBFFF&, MOD_CONTROL, vbKeyF)

　　 ProcessMessages

　　End Sub

　　Public Sub UnRegFastKey()

　　 bCancel = True

　　 UnregisterHotKey hwnd, &HBFFF&

　　End Sub

　　Private Sub ProcessMessages() 监听快捷键消息

　　 Dim Message As Msg

　　 Do While Not bCancel

　　 If PeekMessage(Message, hwnd, WM_HOTKEY, WM_HOTKEY, &H1) Then

　　 MsgBox "快捷键"

　　 End If

　　 DoEvents

　　 Loop

　　End Sub-VB to set an example of shortcuts, custom shortcuts to open a program, this is just an example that demonstrates the principles and specific code:

Dim bCancel As Boolean　used to determine whether to exit the program

Public Sub RegFastKey ()　registration shortcuts

Dim ret As Long

bCancel = False

ret = RegisterHotKey (hwnd, & HBFFF &, MOD_CONTROL, vbKeyF)

ProcessMessages

End Sub

Public Sub UnRegFastKey ()

bCancel = True

UnregisterHotKey hwnd, & HBFFF &

End Sub

Private Sub ProcessMessages ()　listen shortcuts message

Dim Message As Msg

Do While Not bCancel

If PeekMessage (Message, hwnd, WM_HOTKEY, WM_HOTKEY, & H1) Then

MsgBox "shortcut"

End If

DoEvents

Loop

End Sub