Is there a way to have a label to show the name for the key that is pressed?

[akhileshbc]

This will get you started:

Option Explicit

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case 13: Label1.Caption = "Enter key"
        Case 8: Label1.Caption = "Backspace"
        Case 27: Label1.Caption = "Escape"
        Case 32: Label1.Caption = "Space bar"
        Case 46: Label1.Caption = "Delete"
        Case 65 To 90, 97 To 122: Label1.Caption = UCase$(Chr$(KeyCode))    '~~~ A to Z
        Case 48 To 57: Label1.Caption = CStr(KeyCode - 48)                  '~~~ 0 to 9
        Case Else: Label1.Caption = "Write the code for this !!! ;-)"
    End Select
End Sub

Private Sub Form_Load()
    Me.KeyPreview = True
End Sub

Add a labelbox to your form and run the code...