可 以 使 用 GetKeyboardState獲 得 所 有 按 鍵 的 狀 態(tài) ， 參 考 ： 
    Private Declare Function GetKeyboardState Lib "user32" _ 
     (pbKeyState As Byte) As Long 
     
     
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 
     Dim keys(0 To 255) As Byte 
     GetKeyboardState keys(0) 
     
     If keys(vbKeyA) >= 128 And keys(vbKeyRight) >= 128 Then 
     Print "OK" 
     End If 
    End Sub 
<END>