Private Declare Function IsCharAlpha Lib "user32" Alias "IsCharAlphaA" (ByVal cChar As Byte) As Long Private Declare Function IsCharAlphaNumeric Lib "user32" Alias "IsCharAlphaNumericA" (ByVal cChar As Byte) As Long Private Declare Function IsCharLower Lib "user32" Alias "IsCharLowerA" (ByVal cChar As Byte) As Long Private Declare Function IsCharUpper Lib "user32" Alias "IsCharUpperA" (ByVal cChar As Byte) As Long Private Sub Form_KeyPress(KeyAscii As Integer) 'VbAndJava 1999/2000 'Guerrault Yonni 'E-Mail : Yonni4@iFrance.com Dim strSave As String Me.Cls Me.CurrentY = 0 If IsCharAlpha(KeyAscii) Then strSave = "Alpha" If IsCharAlphaNumeric(KeyAscii) Then strSave = " AlphaNumeric" If IsCharLower(KeyAscii) Then strSave = strSave + " Lower" If IsCharUpper(KeyAscii) Then strSave = strSave + " Upper" Me.Print "You pressed: " + Chr$(KeyAscii) Me.Print "ceci est :" + strSave End Sub