Hi there.

I have a problem, here is my code:

Code:
Private Sub Grid1_KeyPress(KeyAscii As Integer)
    Grid1.Text = Grid1.Text & Chr(KeyAscii)    
End Sub
every time i press the backspace button "chr(8)" it ads an vertical bar insted of erasing the last charecter, can someone help me out?

numibesi