xtragrid set behavior

Imports DevExpress.Utils.Behaviors
Imports DevExpress.Utils.DragDrop

Dim behaviorManager1 As New BehaviorManager(Me.components)

'To assign the Behavior to a control in code, use the Attach method.
behaviorManager1.Attach(Of DragDropBehavior)(gridView1, Sub(behavior)
    behavior.Properties.AllowDrop = True
    behavior.Properties.InsertIndicatorVisible = True
    behavior.Properties.PreviewVisible = True
    AddHandler behavior.DragDrop, AddressOf Behavior_DragDropToGrid1
End Sub)

behaviorManager1.Attach(Of DragDropBehavior)(gridView2, Sub(behavior)
    behavior.Properties.AllowDrop = False
    behavior.Properties.InsertIndicatorVisible = False
    behavior.Properties.PreviewVisible = False
    AddHandler behavior.DragDrop, AddressOf Behavior_DragDropToGrid2
End Sub)

'To remove the Behavior, use the Detach method.
behaviorManager1.Detach(Of DragDropBehavior)(gridView1)
behaviorManager1.Detach(Of DragDropBehavior)(gridView2)