>Dear Experts
>
>Numeric type Text1 has following data
>
>123456
>
>I want some codes on command1 to delete this data step-by-step in reverse order as
>
>When I press command1, first time, it should delete 6 and when I press command1, second time, it must delete 5 and so on.
>
>Second time does not mean double click.
>
>Please help

In Click Event:

c_str = TRANSFORM(thisform.text1.Value)
IF LEN(c_str) < 2
   thisform.text1.Value = 0
ELSE
   thisform.Text1.Value = VAL(LEFT(c_str, LEN(c_str)-1)))
ENDIF