Option Explicit
'--------------------------------
' myDearFriend! - 03/07/2004
'--------------------------------
Public Function AutoriseFrappe(ByVal K As Integer) As Integer
'Autorise uniquement les touches numériques et :
Select Case K
Case Is < 65, Is > 122
K = 0
End Select
AutoriseFrappe = K
End Function