'Start a new project
'Paste the following code it (General)(declartions)
'
'
Private Sub Form_KeyPress(KeyAscii As Integer)

Select Case KeyAscii
    
    Case 8
        KeyVal = "BackSpace"

    Case 9
        KeyVal = "Tab"

    Case 13
        KeyVal = "Enter"
        
    Case 27
        KeyVal = "ESC"
        
    Case 32
        KeyVal = "Space"
        
    Case Else
        KeyVal = Chr(KeyAscii)
        
End Select

Form1.Cls: FontSize = 15: CurrentX = 10: CurrentY = 10: Print "Key " & KeyVal & " = " & KeyAscii

End Sub