'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 |