Capture multiple key press on a form

[dogdays]

I have the following code for a form:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    HandleKeys KeyCode, Shift
End Sub

Public Sub HandleKeys(KeyCode As Integer, Shift As Integer)
    Dim ShiftDown As Integer
    Const KEY_j = 74
    Const CTRL_MASK = 2
    ShiftDown = ((Shift And CTRL_MASK) > 0)
    Select Case KeyCode
        Case KEY_j
            If ShiftDown = -1 Then
                DoCmd.Close acForm, Me.Name
            End If
    End Select
    KeyCode = 0
End Sub

When the user presses Ctrl and j I want the form to close. When I try this the KeyDown event does not get triggered. I am using the exact same code in another project and it works quite well.

tia Jack

 

[jackd]

I found this info while google-ing about Shift and Cntrl keys. Hope it's useful to you.
http://msdn.microsoft.com/en-us/library/aa211398(v=office.11).aspx

 

[dogdays]

jackd:
Thank you, that was the help I needed, all better now.

Jack