HookKeys

'Impostare la proprieta KeyPreview del form su True ed

'incollare il seguente codice nell'evento KeyPress dello stesso form

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
End Sub