New line with Area Text Object

It works, thanks! Except for Const EM_SETREADONLY = $CF, it generates an error, so I directly use $CF when I call the function.
I'm quite desappointed that Blitz doesn't include a such important function!
I guess there's also a specific function to limit the number of characters in a field?? As I don't know I do like that:

field$=TextFieldText(hdl_field)
If Len(field$)>SIZE_FIELD
SetGadgetText(hdl_field,Left(field$,SIZE_FIELD))
EndIf