14/12/2010, 15:30
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