sorta,
you can program it to an F key, say F4 (it dont do much anyway)
Code:
'set form KEYPREVIEW = YES
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF4 Then
MsgBox Screen.ActiveControl.Properties("ControlSource").Value
End If
End Sub
you cant use a button, because as soon as you click it, the BUTTON becomes the object with the focus. So fkey or something.