Sub EnsureVisible ( )
Ensure that the cursor is visible on the screen, by scrolling the text area contents if necessary.