>>>In the keypress, put someting like this:

>>>do case
>>>  case len(trim(this.value))>50
>>>     this.height=48
>>>  case len(trim(this.value))>25
>>>     this.height=32
>>>  otherwise
>>>     this.height=16
>>>endcase

>>In this case, I thint that sample below is very interesting:

>>this.height = ((Int(len(trim(this.value))) / 26) + 1) * 16

>>What do you think?
>Yes, that will do, I guess.

Or instead of LEN()/16, you could use ThisForm.TextWidth().