I have tried a few combinations with No success! Using Access 2010 32 bit.
Select Case KeyCode
Case vbKeyF4
'MsgBox "The F4 key was Pressed"
KeyCode = 0
Case Else
'MsgBox "No match!" 'testing
End Select
> 0Dim intAltDown As Integer
intAltDown = (Shift And acAltMask)