  ' Show the middle scroller form:
   Set m_frmRefPoint = New frmRefPoint
   m_frmRefPoint.Init ((Not (m_eHorizontalMode = eNone)) And
    m_bHasHorizontalScroll), _
      ((Not (m_eVerticalMode = eNone)) And m_bHasVerticalScroll)
   Load m_frmRefPoint
   ShowWindow m_frmRefPoint.hwnd, SW_SHOWNOACTIVATE
   MoveWindow m_frmRefPoint.hwnd, m_tP.X - 11, m_tP.Y - 11, 23, 23, 1
   
   Set m_tmr = New CTimer
   m_tmr.Interval = 25
   
   m_bInitial = True
      
   '
End Sub

Private Sub EndMiddleScroll()
   
   I