ered during the <span class="code">OLEStartDrag</span> event, which
simply checks whether the item is a root node using the <span class="code">Parent</span>
property of the dragging node:
</p><pre>
Private Sub tvwDrag_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
   '
   ' Check if this is a root node:
   Dim nodDrag As cTreeViewNode
   Set nodDrag = tvwDrag.NodeFromDragData(Data)
   If (nodDrag.Parent Is Nothing) Then
      ' Cannot drag parent items
      AllowedEffects = vbDropEffectNone
   El