思路大概有一个。但不知对不对。
windows应该不支持同时的多键位输入。现在的所谓组合键是指一定时间内按下的键就自认为是组合键。
所以再编程的时候需要一个定时器来判断按下的键位是否属于组合键。
然后就是用call来制定组合键的功能是q。
可是我只有思路。。。新手。。。不知道该怎样下手。
求代码。

定时器来判断按下的键位是否属于组合键?

Option Explicit

Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim aKey(0 To 255) As Byte
    GetKeyboardState aKey(0)
    If MyKey(aKey(vbKeyA)) And MyKey(aKey(vbKeyS)) Then KeyCode = vbKeyQ
    'Debug.Print "Form_KeyDown", KeyCode, Chr$(KeyCode), Hex$(aKey(vbKeyA)), Hex$(aKey(vbKeyS)), Hex$(aKey(vbKeyQ))
    Debug.Print "Form_KeyDown", KeyCode, Chr$(KeyCode), MyKey(aKey(vbKeyA)), MyKey(aKey(vbKeyS)), MyKey(aKey(vbKeyQ))
End Sub

Function MyKey(bKey As Byte) As Boolean
    MyKey = (bKey And &H80)
End Function

系统不支持同时输入多个键。比如ctrl + shiftl来调出输入法。无论是同时按还是快速连按都能调出。。。额。。表达不太明白。

请问下这个vbkey（）是键盘上所有键都可以用么？
比如shift或者小键盘数字加减号和方向键。。。

可以

Option Explicit

Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim aKey(0 To 255) As Byte
    GetKeyboardState aKey(0)
    If MyKey(aKey(vbKeyA)) And MyKey(aKey(vbKeyS)) Then KeyCode = vbKeyQ
    'Debug.Print "Form_KeyDown", KeyCode, Chr$(KeyCode), Hex$(aKey(vbKeyA)), Hex$(aKey(vbKeyS)), Hex$(aKey(vbKeyQ))
    Debug.Print "Form_KeyDown", KeyCode, Chr$(KeyCode), MyKey(aKey(vbKeyA)), MyKey(aKey(vbKeyS)), MyKey(aKey(vbKeyQ))
'    Debug.Print , MyKey(aKey(vbKeyUp)), MyKey(aKey(vbKeyDown)), MyKey(aKey(vbKeyLeft)), MyKey(aKey(vbKeyRight))
    Debug.Print "State Shift:Ctrl:Alt", MyKey(aKey(vbKeyShift)), MyKey(aKey(vbKeyControl)), MyKey(aKey(vbKeyMenu))
End Sub

Function MyKey(bKey As Byte) As Boolean
    MyKey = (bKey And &H80)
End Function

避免使用系統熱鍵

没记错的话以前在CSDN上看过有位高手写了个VB的组合键的模组～
去查查看～看是不是你要的～不过我保证你看不懂它的程式码～