如何在vb6中响应"Ctrl 回车"?

请问诸高手如何在vb6中响应"Ctrl+回车"?就像qq中用这个来发送消息一样？

热心网友

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Const Ctrl = 2CtrlDown% = (Shift And Ctrl)EnterDown% = (KeyCode = 13)If EnterDown% And CtrlDown% ThenMsgBox "你按下了Ctrl+Enter", vbOKOnly, "Hi"End IfEnd Sub