 IsInRange(txtDragDrop.SelStart, m_iLastSelStart, m_iLastSelLength) Then
      txtDragDrop.SelStart = m_iLastSelStart
      txtDragDrop.SelLength = m_iLastSelLength
      txtDragDrop.OLEDrag
   Else
      m_iLastSelStart = txtDragDrop.SelStart
      m_iLastSelLength = txtDragDrop.SelLength
   End If
End Sub

Private Sub txtDragDrop_MouseUp(Button As Integer, Shift As Integer, X As
 Single, Y As Single)
   m_iLastSelStart = txtDragDrop.SelStart
   m_iLastSelLength = txtDragDrop.SelLength
End Sub

Private Sub