I have never seen such an editable Text Area in a windiws App. I guess this is not part of the Windows abstract toolkit. I could be wrong. However, you can code it by your own relatively easy.
for i=0 to x
text 640-stringwidth(lin$(i)),i*16,lin$(i)
next
for i=0 to x
text 640-stringwidth(lin$(i)),i*16,lin$(i)
next