文本框取得焦点时光标自动跳到文字末尾

文本框获得焦点时光标自动跳到文字末尾
向高手请教！

------解决方案--------------------------------------------------------
.TEXT1.GOTFOCUS
THIS.SELSTART=LEN(ALLTRIM(THIS.TEXT))
------解决方案--------------------------------------------------------
THIS.SELSTART=LEN(RTRIM(THIS.TEXT))
------解决方案--------------------------------------------------------
在这个文本框的GotFocus事件中输入：

This.SelStart=Len(Trim(This.Text))