ner's window handle instead.
Otherwise it is easy enough:
</p><pre>
Private Sub tvwSource_OLEDragOver( _
      Data As DataObject, _
      Effect As Long, _
      Button As Integer, _
      Shift As Integer, _
      x As Single, y As Single, _
      State As Integer)
Dim nodeDrag As cTreeViewNode
      
   Effect = vbDropEffectNone
   
   ' It does not matter which control instance
   ' you use to ask for the drag node:
   Set nodeDrag = tvwSource.NodeFromDragData(Data)

   ' Check that the drag-data is fro