SUB EnsureVisible ( )