[WORKAROUND] OLE Drag & Drop Insertion Point

Private Sub ReportControl1_OLEDragDrop(ByVal Data As XtremeReportControl.DataObject, Effect As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
   Dim lo_HitTest As ReportHitTestInfo
   Dim lo_InsertBefore As ReportRecord
   Dim lo_NewRec as ReportRecord
   Dim l_Top As Long
   Dim l_Left As Long
   Dim l_Right As Long
   Dim l_Bottom As Long
   
   ' Convert mouse coords to pixels   
   x = x \ Screen.TwipsPerPixelX
   y = y \ Screen.TwipsPerPixelY
   
   ' Determine what row the mouse is hovering over
   Set lo_HitTest = Me.ReportControl1.HitTest(x, y)
   If Not lo_HitTest Is Nothing Then
      If Not lo_HitTest.Row Is Nothing Then
         lo_HitTest.Row.GetRect l_Left, l_Top, l_Right, l_Bottom
         If (y - l_Top) < (l_Bottom - y) Then
            ' Insertion point is before this row
            Set lo_InsertBefore = lo_HitTest.Row.Record
         Else
            ' Insertion point is below this row
            On Error Resume Next    ' Trap error in case we are at the bottom row
            Set lo_InsertBefore = Me.ReportControl1.Records(lo_HitTest.Row.Record.Index + 1)
            On Error GoTo 0
         End If
      End If
   End If

   If lo_InsertBefore Is Nothing Then
      ' Add new row to bottom of report
      Set lo_Rec = Me.ReportControl1.Records.Add
   Else
      ' Insert new row above this record
      Set lo_Rec = Me.ReportControl1.Records.Insert(lo_InsertBefore.Index)
   End If
End Sub