k = SIF_POS Or SIF_TRACKPOS
            lNewPos = tSIHorz.nPos + lHorzOffset
            If (lNewPos &lt; 0) Then lNewPos = 0
            If (lNewPos &gt; tSIHorz.nMax + tSIHorz.nPage) Then lNewPos =
             tSIHorz.nMax + tSIHorz.nPage
            tSIHorz.nPos = lNewPos
            tSIHorz.nTrackPos = lNewPos
            SetScrollInfo m_hWnd, SB_HORZ, tSIHorz, True
            SendMessageLong m_hWnd, WM_HSCROLL, getScrollWParam(SB_THUMBTRACK,
             lNewPos), 0
         End If
      End If
   En