API Basılan Karakteri Tipini Öğrenmek

Bir form yaratıp kodu olduğu gibi kopyalayın.
Kolay gelsin...

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)

Dim strSave As String

Me.Cls
'ŞU ANKİ Y POZİSYONU
Me.CurrentY = 0
'KARAKTER BİLGİSİNİ ALIYOR
If IsCharAlphaNumeric(KeyAscii) Then strSave = " SAYISAL"
If IsCharAlpha(KeyAscii) Then strSave = "HARF"
If IsCharLower(KeyAscii) Then strSave = strSave + " KÜÇÜK"
If IsCharUpper(KeyAscii) Then strSave = strSave + " BÜYÜK"
'VEEEE YAZIYORRRRRRRR
Me.Print "BASTIĞIN: " + Chr$(KeyAscii)
Me.Print "BU :" + strSave
End Sub