Here's a kludge, but it works, perhaps a variation on the theme or someone else has a better idea:

ThisForm.status.Value=oldtext+newtext+chr(13)
ThisForm.status.refresh()

In status Refresh Method:
ThisForm.Status.Setfocus()

In status SetFocus Method:

Keyboard '{pgdn}'

:)

Rob

>I have an edit box with a vertical scroll bar on a form (VFP5 and VFP6). I use >the box to keep track of an ongoing process by adding additional text to its >value:

>ThisForm.status.Value=oldtext+newtext+chr(13)
>ThisForm.Refresh

>However, when the text length exceeds the box size I cannot see the new >additions unless I manually scroll. Is there a way to make the text box scroll >automatically so the newest text is always displayed?