>Hi
>
>I want to display someother characters as soon as user keys-in.
>
>E.g. If user keyis in "A" it should give "X".
> For "B" it should display "Z"
>
>This is because I want to create a text box which displays indian font.
>And when user's key's in "A" I will capture "A" and related character will
>be displayed in text box.
>
>In this How I will be able to take care of Backspace ?
>
>I tried kypress Event.
>But it doesn't work properly.
>
>Thanks in Advance.
>
>Ashish

*Keypress
lparameters nKeyCode, nShiftAltCtrl
if chr(nKeyCode)$'AB...'
  nodefault
do case
 case nKeyCode = asc('A')
    keyboard 'X'
*...
endcase
endif

Better you could maintain a string of replacement chars and use substr to get char. ie:

if chr(nKeyCode) $ myReplaceFromStr
nodefault
keyboard chr(asc(substr(myReplaceTo,nKeyCode)))
endif

Cetin