-
I have a form filling the screen (Blank)
I want the user to press (shirt + ? + Control) keys
simultaneously to trigger a msgbox.
If this is possible?
I need the code for this event:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'If keycode = what then
'msgbox "Open Form"
'Endif
End Sub
-
Try this code. It worked for me.
Option Explicit
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim ShiftDown As Boolean
Dim CtrlDown As Boolean
ShiftDown = (Shift And vbShiftMask) > 0
CtrlDown = (Shift And vbCtrlMask) > 0
If CtrlDown And KeyCode = 191 And ShiftDown Then
MsgBox "Ctrl Shift ? was pressed."
End If
End Sub
-
Thank you very much...
Does the trick.
Wayne