Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub ultraExplorerBar1_ItemDragOver(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinExplorerBar.ItemDragOverEventArgs) Handles ultraExplorerBar1.ItemDragOver
Debug.WriteLine(String.Format("The item '{0}' is being dragged to group '{1}'", e.Item.Text, e.TargetGroup))
Debug.WriteLine(String.Format("The group is currently over point: ", New Point(e.X, e.Y).ToString()))
' Don't allow the Item to be dropped if the target group has a key of "System" and
' the Item is being moved
If (e.TargetGroup.Key = "System" AndAlso e.DragAction = ItemDragAction.Move) Then
e.AllowDrop = False
e.DragCursor = Cursors.No
End If
End Sub