klavyedeki sayısal ve alfasayısal tuşların ascii kod karşılıklarını bulan küçük bir örnek

Private Sub Komut4_Click()

On Error Resume Next

Me.Metin2.Value = Asc(Me.Metin0.Value)

End Sub



Private Sub Komut5_Click()

Metin2.Value = " "

Metin0.Value = " "

Metin0.SetFocus

End Sub