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