ctrl+F 快捷键用代码如何表示

Question

If Shift=2 And Keycode=VbKeyF then
   '...End If

Answer 1

我想用sendkey 向控件发送快捷键ctrl+F

Answer 2

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    CtrlDown = (Shift And vbCtrlMask) > 0
    If KeyCode = vbKeyF And CtrlDown Then Text1 = "OK!"
End Sub

Answer 3

示例代码，完全：
----------------------------------------------------Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 If Shift = 2 And KeyCode = vbKeyF Then
   MsgBox "我来哪!"
   '......
 End If
End Sub