IF !EMPTY(ALLTRIM(THIS.VALUE)) THIS.SELLENGTH=LEN(ALLTRIM(THIS.VALUE)) ENDIF
If !Empty(this.Value) this.SelStart = 0 this.SelLength = Alltrim(this.Value) Endif
IF !EMPTY(ALLTRIM(THIS.VALUE)) this.SelStart = 0 THIS.SELLENGTH=LEN(ALLTRIM(THIS.VALUE)) ENDIF
IF !EMPTY(ALLTRIM(THIS.VALUE)) THIS.SELSTART = 0 THIS.SELLENGTH=LEN(ALLTRIM(THIS.TEXT)) ENDIF