Tuşun Ascii

Arkdaşlar
sendkeys ("") kodunu biliyoruz bunu timere ekleyince belli zaman aralıklarında basıor
ama ben bunu istemiyorum her tusun bir ascii değeri var ben ona göre basmasını istiyorum
Private Sub Form_KeyPress(KeyAscii As Integer)
         MsgBox "Basılan Tuşun Ascii Değeri :" & KeyAscii
End Sub
koduda bu

nasıl bir kod yazmalyımki timerin arkasına belli zaman aralıkllarıyla tusa bassın ama ascii değierine göre bascak

bunları denemdim olmadı:S
sendkeysascii("")
sendkeyascii("")

şimdiden tesekkür ediyorum yardımlarınızı bekliyoum

istersn şole yapabilirin
dim kar as integer=textbox1.text
label1.text =convert.tochar

ordanda yapablrsn