if keycode = &h70 then
print "帮助"
end if
回车又怎么加呢???
[此贴子已经被作者于2007-10-17 22:46:57编辑过]
网上搜到的.....
VB键盘代码常量 值(0x为16进制,其他为10进制) 键盘说明 
vbKeyLButton 0x1 鼠标左键 
vbKeyRButton 0x2 鼠标右键 
vbKeyCancel 0x3 CANCEL键 
vbKeyMButton 0x4 鼠标中键 
vbKeyBack 0x8 退格键 
vbKeyTab 0x9 TAB键 
vbKeyClear 0xC CLEAR健 
vbKeyReturn 0xD 回车键 
vbKeyShift 0x10 SHIFT键 
vbKeyControl 0x11 CTRL键 
vbKeyMenu 0x12 MENU键 
vbKeyPause 0x13 PAUSE键 
vbKeyCapital 0x14 CAPS LOCK 键 
vbKeyEscape 0x1B ESC键 
vbKeySpace 0x20 空格键 
vbKeyPageUp 0x21 Page Up 键 
vbKeyPageDown 0x22 Page Down 键 
vbKeyEnd 0x23 END键 
vbKeyHome 0x24 HOME键 
vbKeyLeft 0x25 光标左键 
vbKeyUp 0x26 光标上键 
vbKeyRight 0x27 光标右键 
vbKeyDown 0x28 光标下键 
vbKeySelect 0x29 SELECT键 
vbKeyPrint 0x2A Print Screen 键 
vbKeyExecute 0x2B EXECUTE键 
vbKeySnapshot 0x2C SnapShot键 
vbKeyInsert 0x2D INSERT键 
vbKeyDelete 0x2E DELETE键 
vbKeyHelp 0x2F HELP键 
vbKeyNumlock 0x90 NUM LOCK 键 
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键 
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键 
vbKeyF1 0x70 F1功能键 
vbKeyF2 0x71 F2功能键 
vbKeyF3 0x72 F3功能键 
vbKeyF4 0x73 F4功能键 
vbKeyF5 0x74 F5功能键 
vbKeyF6 0x75 F6功能键 
vbKeyF7 0x76 F7功能键 
vbKeyF8 0x77 F8功能键 
vbKeyF9 0x78 F9功能键 
vbKeyF10 0x79 F10功能键 
vbKeyF11 0x7A F11功能键 
vbKeyF12 0x7B F12功能键 
vbKeyF13 0x7C F13功能键 
vbKeyF14 0x7D F14功能键 
vbKeyF15 0x7E F15功能键 
vbKeyF16 0x7F F16功能键 
vbKeyNumpad0 0x60 小键盘0键 
vbKeyNumpad1 0x61 小键盘1键 
vbKeyNumpad2 0x62 小键盘2键 
vbKeyNumpad3 0x63 小键盘3键 
vbKeyNumpad4 0x64 小键盘4键 
vbKeyNumpad5 0x65 小键盘5键 
vbKeyNumpad6 0x66 小键盘6键 
vbKeyNumpad7 0x67 小键盘7键 
vbKeyNumpad8 0x68 小键盘8键 
vbKeyNumpad9 0x69 小键盘9键 
vbKeyMultiply 0x6A 小键盘*键 
vbKeyAdd 0x6B 小键盘+键 
vbKeySeparator 0x6C 小键盘回车键 
vbKeySubtract 0x6D 小键盘-键 
vbKeyDecimal 0x6E 小键盘.键 
vbKeyDivide 0x6F 小键盘/键 
