Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub ultraExplorerBar1_GroupDragOver(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinExplorerBar.GroupDragOverEventArgs) Handles ultraExplorerBar1.GroupDragOver
Dim beforeAfter As String
If (e.TargetGroupRelativePosition = GroupDropPosition.After) Then
beforeAfter = "after"
Else
beforeAfter = "before"
End If
Debug.WriteLine(String.Format("The group '{0}' is being dragged " + beforeAfter + " group '{1}'", e.Group.Text, e.TargetGroup))
Debug.WriteLine(String.Format("The group is currently over point: ", New Point(e.X, e.Y).ToString()))
' Don't allow the Group to be dropped if the target group has a key of "System"
If e.TargetGroup.Key = "System" Then
e.AllowDrop = False
e.DragCursor = Cursors.No
End If
End Sub