简单的VB全局热键（不能使用复合热键）
新手专供
你需要做的：创建新窗体，放一个timer控件（就是闹钟一样的拉）
            接着复制代码
————————代码部分
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 'API函数声明  若不知道API函数  百度一下  <h犇ttp://tieb犇a.baid犇u.c犇om/f?kz=62犇6339029>（“犇”字全删了 百度不让发）这个讲得不错  我就看了这个才懂的
Private Sub Form_Load()
    Timer1.Interval = 100 '  就是刚刚的timer控件，这个的介绍可以看百度百科去，挺全的频率可以自己调  没事
End Sub
Private Sub Timer1_Timer()
    If GetAsyncKeyState(vbKeyF9) Then MsgBox "F9" 'vbkeyF9这个可以自己改成其他键
End Sub
————————代码结束
附录
键码
常数
值
描述
vbKeyLButton
1
鼠标左键
vbKeyRButton
2
鼠标右键
vbKeyCancel
3
CANCEL 键
vbKeyMButton
4
鼠标中键
vbKeyBack
8
BACKSPACE 键
vbKeyTab
9
TAB 键
vbKeyClear
12
CLEAR 键
vbKeyReturn
13
ENTER 键
vbKeyShift
16
SHIFT 键
vbKeyControl
17
CTRL 键
vbKeyMenu
18
菜单键
vbKeyPause
19
PAUSE 键
vbKeyCapital
20
CAPS LOCK 键
vbKeyEscape
27
ESC 键
vbKeySpace
32
SPACEBAR 键
vbKeyPageUp
33
PAGEUP 键
vbKeyPageDown
34
PAGEDOWN 键
vbKeyEnd
35
END 键
vbKeyHome
36
HOME 键
vbKeyLeft
37
LEFT ARROW 键
vbKeyUp
38
UP ARROW 键
vbKeyRight
39
RIGHT ARROW 键
vbKeyDown
40
DOWN ARROW 键
vbKeySelect
41
SELECT 键
vbKeyPrint
42
PRINT SCREEN 键
vbKeyExecute
43
EXECUTE 键
vbKeySnapshot
44
SNAP SHOT 键
vbKeyInser
45
INS 键
vbKeyDelete
46
DEL 键
vbKeyHelp
47
HELP 键
vbKeyNumlock
144
NUM LOCK 键
A 键到 Z 键与其 ASCII 码的相应值'A' 到 'Z' 是一致的
常数
值
描述
vbKeyA
65
A 键
vbKeyB
66
B 键
vbKeyC
67
C 键
vbKeyD
68
D 键
vbKeyE
69
E 键
vbKeyF
70
F 键
vbKeyG
71
G 键
vbKeyH
72
H 键
vbKeyI
73
I 键
vbKeyJ
74
J 键
vbKeyK
75
K 键
vbKeyL
76
L 键
vbKeyM
77
M 键
vbKeyN
78
N 键
vbKeyO
79
O 键
vbKeyP
80
P 键
vbKeyQ
81
Q 键
vbKeyR
82
R 键
vbKeyS
83
S 键
vbKeyT
84
T 键
vbKeyU
85
U 键
vbKeyV
86
V 键
vbKeyW
87
W 键
vbKeyX
88
X 键
vbKeyY
89
Y 键
vbKeyZ
90
Z 键
0 键到 9 键与其 ASCII 码的相应值 '0' 到 '9' 是一致的
常数
值
描述
vbKey0
48
0 键
vbKey1
49
1 键
vbKey2
50
2 键
vbKey3
51
3 键
vbKey4
52
4 键
vbKey5
53
5 键
vbKey6
54
6 键
vbKey7
55
7 键
vbKey8
56
8 键
vbKey9
57
9 键
数字小键盘上的键
常数
值
描述
vbKeyNumpad0
96
0 键
vbKeyNumpad1
97
1 键
vbKeyNumpad2
98
2 键
vbKeyNumpad3
99
3 键
vbKeyNumpad4
100
4 键
vbKeyNumpad5
101
5 键
vbKeyNumpad6
102
6 键
vbKeyNumpad7
103
7 键
vbKeyNumpad8
104
8 键
vbKeyNumpad9
105
9 键
vbKeyMultiply
106
乘号 (*) 键
vbKeyAdd
107
加号 (+) 键
vbKeySeparator
108
ENTER 键（在数字小键盘上）
vbKeySubtract
109
减号 (-) 键
vb所有代码
vbKeyDecimal
110
小数点 (.) 键
vbKeyDivide
111
除号 (/) 键
功能键
常数
值
描述
vbKeyF1
112
F1 键
vbKeyF2
113
F2 键
vbKeyF3
114
F3 键
vbKeyF4
115
F4 键
vbKeyF5
116
F5 键
vbKeyF6
117
F6 键
vbKeyF7
118
F7 键
vbKeyF8
119
F8 键
vbKeyF9
120
F9 键
vbKeyF10
121
F10 键
vbKeyF11
122
F11 键
vbKeyF12
123
F12 键
vbKeyF13
124
F13 键
vbKeyF14
125
F14 键
vbKeyF15
126
F15 键
vbKeyF16
127
F16 键