Procedure DrawVertSlideBar

    This  updates  the  slide  bar  on   the  screen.   Seldom  required.
    Use this  if  you  move  a  window  and  do  not  have  the slide bar
    set up in the window's linked list of buttons.