SUB EnsureVisible ( )

Ensures that the cursor is visible on the screen, by scrolling the text area contents if necessary.