Private Sub text1_keypress(keyascii As Integer) Label1.Caption = keyascii Text1 = Chr(keyascii) keyascii = 0 End Sub yunus bingöl gakkoyunus@hotmail.com