Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If (GetAsyncKeyState(VK_LSHIFT) And &H8000) Then'你要处理的程序 ，这里响应左shift键End IfEnd Sub
要使窗体的keypriview属性为真，才接受事件。
