How to drag records to TreeView-control

Option Explicit

Private m_ClipboardFormat As Long

Private Sub Form_Load()
   With Me.TreeView1
      ' Enable OLE drop mode for the Treeview
      .OLEDropMode = xtpOLEDropManual
   End With
   
   With Me.ReportControl1
      .Columns.Add 0, "", 100, True
      
      ' Add some dummy records
      With .Records.Add
         .AddItem "a"
      End With
      With .Records.Add
         .AddItem "b"
      End With
      With .Records.Add
         .AddItem "c"
      End With
      With .Records.Add
         .AddItem "d"
      End With
      With .Records.Add
         .AddItem "e"
      End With
      With .Records.Add
         .AddItem "f"
      End With
      
      ' Register the report control clipboard/dragdrop format.
      ' We will use the return value to get data out of the drag & drop data object
      m_ClipboardFormat = .EnableDragDrop("ABC", xtpReportAllowDragCopy)
      
      .Populate
      
   End With
End Sub

Private Sub TreeView1_OLEDragDrop(ByVal Data As XtremeSuiteControls.DataObject, Effect As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
   Dim lo_Records As XtremeReportControl.ReportRecords
   Dim i As Long
   
   ' Create a ReportRecords collection from the dropped data
   Set lo_Records = Me.ReportControl1.CreateRecordsFromDropArray(Data.GetData(m_ClipboardFormat))
   
   ' Add the items in the ReportRecords collection to the TreeView
   For i = 1 To lo_Records.Count
      Me.TreeView1.Nodes.Add , , , lo_Records.Record(i - 1).Item(0).Value
   Next i
End Sub

Option Explicit

Private m_ClipboardFormat As Long

Private Sub Form_Load()
   With Me.TreeView1
      ' Enable OLE drop mode for the Treeview
      .OLEDropMode = xtpOLEDropManual  ' BUG: TreeView won't fire OLE* events when this value is set in code
                                       '      - only works when set in the VB6 Property Browser
      
      .ShowLines = xtpTreeViewShowLinesAtRoot
      .ShowPlusMinus = True
   End With
   
   With Me.ReportControl1
      .Columns.Add 0, "", 100, True
      
      ' Add some dummy records
      With .Records.Add
         .AddItem "a"
      End With
      With .Records.Add
         .AddItem "b"
      End With
      With .Records.Add
         .AddItem "c"
      End With
      With .Records.Add
         .AddItem "d"
      End With
      With .Records.Add
         .AddItem "e"
      End With
      With .Records.Add
         .AddItem "f"
      End With
      
      ' Register the report control clipboard/dragdrop format.
      ' We will use the return value to get data out of the drag & drop data object
      m_ClipboardFormat = .EnableDragDrop("ABC", xtpReportAllowDragCopy)
      
      .Populate
      
   End With
End Sub

Private Sub TreeView1_OLEDragDrop(ByVal Data As XtremeSuiteControls.DataObject, Effect As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
   Dim lo_Records As XtremeReportControl.ReportRecords
   Dim i As Long
   
   Dim lo_Node As TreeViewNode
   
   ' Determine if we dropped the reportcontrol records onto a treeview node
   Set lo_Node = Me.TreeView1.HitTest(x, y)
   
   ' Create a ReportRecords collection from the dropped data
   Set lo_Records = Me.ReportControl1.CreateRecordsFromDropArray(Data.GetData(m_ClipboardFormat))
   
   ' Add the items in the ReportRecords collection to the TreeView
   For i = 1 To lo_Records.Count
      Me.TreeView1.Nodes.Add IIf(lo_Node Is Nothing, Empty, lo_Node), IIf(lo_Node Is Nothing, Empty, xtpTreeViewChild), , lo_Records.Record(i - 1).Item(0).Value
   Next i
   
   
   ' BUG: TreeView doesn't update +/- button after OLE Drag & Drop,
   ' so hide & show the control to force redraw as a hack/workaround
   With Me.TreeView1
      .Visible = False
      .Visible = True
   End With
End Sub