>The following code in the KeyPress event of the edit box will not work:
>
>If nKeyCode = -6 Then
>
>This.Value = SubStr(This.Value,1,ThisForm.nSelStart) + Chr(176) + SubStr(This.Value,ThisForm.nSelStart+1,Len(This.Value))
>
>This.selStart = ThisForm.nSelStart + 1
>
>EndIf
>
>The cursor still goes back to place 0.
You have to isseu the NODEFAULT inside your IF statement. But I think that Tore's answer is the best so far.
Charles
"The code knows no master." - Chuck Mautz
"Everybody is ignorant, only on different subjects." - Will Rogers