Set Effect value in TreeView's OLEDragDrop

Private Sub Form_Load()
    tvwExplorer.OLEDragMode = xtpOLEDragAutomatic
    tvwExplorer.OLEDropMode = xtpOLEDropManual
End Sub
Private Sub tvwExplorer_OLEStartDrag(Data As XtremeSuiteControls.DataObject, AllowedEffects As Long)
Dim oDragNode As TreeViewNode
    If Not Me.tvwExplorer.SelectedItem Is Nothing Then
 ' check if valid ...
        AllowedEffects = vbDropEffectMove
    Else
        AllowedEffects = vbDropEffectNone
    End If
End Sub

Private Sub tvwExplorer_OLEDragOver(ByVal Data As XtremeSuiteControls.DataObject, Effect As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single, ByVal state As Integer)
    ' do what u need
    If Not okDrop Or state = vbLeave Then
        Set tvwExplorer.DropHighlight = Nothing
        Effect = vbDropEffectNone
    Else
        Set tvwExplorer.DropHighlight = tvwExplorer.HitTest(x, Y)
    End If
End Sub
 
Private Sub tvwExplorer_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)
    ' do what u need
    ' nothing about Effect
End Sub
 
Private Sub tvwExplorer_OLECompleteDrag(Effect As Long)
    Effect = vbDropEffectNone
End Sub