ragDrop(Data As DataObject, Effect As Long, Button
 As Integer, Shift As Integer, X As Single, Y As Single)
   '
   m_cDrag.CompleteDrag
   
   Dim i As Long
   Dim j As Long
   Dim iOrder As Long
   i = hitTest(X, Y)
   If (i &gt; 0) Then
      If Not (i = m_iDragging) Then
         If (m_iDragging &lt; i) Then
            iOrder = m_iOrder(m_iDragging)
            For j = m_iDragging To i - 1
               m_iOrder(j) = m_iOrder(j + 1)
            Next j
            m_iOrder(i) = iOrder
         Else
   