Sub EnsureVisible ( )

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