>>
>>In the Click event:

>>this.selstart=0
>>this.sellength=this.maxlength

>
>Tore,
>
>Thank you very much. This does the job.

I recommend you to set a flag, cleared in LostFocus, to allow cursor positioning in subsequent mouse clicks

IF NOT this.Tag = '1'
    this.selstart=0
    this.sellength=this.maxlength
    this.Tag = '1'
ENDIF