diff --git a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
index cb1b138c..9dd8fb26 100644
--- a/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
+++ b/GUIs.Common/DocumentResultList/frmDocumentResultList.vb
@@ -788,14 +788,19 @@ Public Class frmDocumentResultList
     Private Sub GridView1_MouseMove(sender As GridView, e As MouseEventArgs) Handles GridView1.MouseMove
         If e.Button AndAlso e.Button = MouseButtons.Left Then
             If _DragBoxFromMouseDown <> Rectangle.Empty And Not _DragBoxFromMouseDown.Contains(e.X, e.Y) Then
-                If _DocumentInfo IsNot Nothing AndAlso _DocumentInfo.AccessRight > Rights.AccessRight.VIEW_ONLY Then
-                    _ScreenOffset = SystemInformation.WorkingArea.Location
 
-                    Dim oFullPath As String = _DocumentInfo.FullPath
-                    Dim oFiles As String() = {oFullPath}
-                    Dim oData As New DataObject(DataFormats.FileDrop, oFiles)
+                Dim oHitInfo = sender.CalcHitInfo(e.Location)
 
-                    sender.GridControl.DoDragDrop(oData, DragDropEffects.All)
+                If oHitInfo.InRow Then
+                    If _DocumentInfo IsNot Nothing AndAlso _DocumentInfo.AccessRight > Rights.AccessRight.VIEW_ONLY Then
+                        _ScreenOffset = SystemInformation.WorkingArea.Location
+
+                        Dim oFullPath As String = _DocumentInfo.FullPath
+                        Dim oFiles As String() = {oFullPath}
+                        Dim oData As New DataObject(DataFormats.FileDrop, oFiles)
+
+                        sender.GridControl.DoDragDrop(oData, DragDropEffects.All)
+                    End If
                 End If
             End If
         End If