Set the "Key Preview" property of the form to Yes.
Now use the Form's "On Key Down" event to do what you ask:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim intAltDown As Integer
intAltDown = (Shift And acAltMask) > 0
Select Case KeyCode
Case vbKeyF4
If intAltDown...