Ask Your Question

Revision history [back]

click to hide/show revision 1
initial version

Hi - You can do:

Sub InfoKey(oEvent)

dim sMsg as string

with oEvent
    sMsg = "Modifiers: " & .Modifiers & chr(13)
    sMsg = sMsg & "KeyCode: " & .KeyCode & chr(13)
    sMsg = sMsg & "KeyChar: " & .KeyChar & chr(13)
    sMsg = sMsg & "KeyFunc: " & .KeyFunc
end with

msgbox sMsg

End Sub

See API info.