CodeItBetter Programming Another VB Programming Blog

'Controls - How to Display keyboard key pressed -- including system keys
Public Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, _
    ByVal wMapType As Long) As Long
Public Declare Function GetKeyNameText Lib "user32" Alias "GetKeyNameTextA" (ByVal lParam As Long, _
    ByVal lbBuffer As String, ByVal nSize As Long) As Long
 
Private Sub txtBody_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim dummy&
    Dim scancode&
    Dim keyname As String * 256
    'Get the scancode
    scancode& = MapVirtualKey(KeyCode, 0)
    dummy = GetKeyNameText(scancode& * &H10000, keyname, 255)
    MsgBox keyname
    KeyCode = 0
End Sub