Set the form.keypreview=true, then insert this to your form:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then MsgBox Me.ActiveControl.Name
End Sub


Hope it works!