 txtDragDrop_OLECompleteDrag(Effect As Long)
   m_cDrag.CompleteDrag
   
   Dim tR As RECT
   tR.right = Me.ScaleX(txtDragDrop.Width, Me.ScaleMode, vbPixels)
   tR.bottom = Me.ScaleY(txtDragDrop.Height, Me.ScaleMode, vbPixels)
   RedrawWindow txtDragDrop.hwnd, tR, 0&amp;, RDW_UPDATENOW Or RDW_INVALIDATE Or
    RDW_ALLCHILDREN Or RDW_ERASE
   
   m_iLastSelStart = txtDragDrop.SelStart
   m_iLastSelLength = txtDragDrop.SelLength
   
End Sub


Private Sub txtDragDrop_OLEDragOver(Data As DataObject, Effect As L