VB6 - Using the KeyDown Event

[Harsh Gupta]

Works for me. Did you try it?

by the way I forgot one thing:

Dim CTRL_1 As Boolean
Dim CTRL_2 As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    Select Case KeyCode
        Case vbKeyControl
            CTRL_1 = True
        Case vbKeyF
            CTRL_2 = True
    End Select
    If CTRL_1 And CTRL_2 Then
        MsgBox "Control F"
        CTRL_1 = False
        CTRL_2 = False
    End If
End Sub

paralinx,

this is not the perfect solution since CTRL+F means press F while keeping CTRL pressed. this will also work for:

1 - Pressing F after CTRL pressed n released
2 - Pressing CTRL after F pressed n released
3 - F + CTRL.

AFAIK, the only way to for this purpose is Sendkeys. though i may be wrong. there may exists some other methods.