Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTabs
Imports Infragistics.Win.UltraWinTabbedMdi
Private Sub ultraTabbedMdiManager1_SplitterDragging(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTabbedMdi.MdiSplitterDraggingEventArgs) Handles ultraTabbedMdiManager1.SplitterDragging
' The 'SplitterDragging' is invoked before a drag operation
' for the splitter bar of an MdiTabGroup begins.
' The 'Cancel' parameter may be set to true to
' prevent the drag operation from beginning.
'
'e.Cancel = True
' The 'TabGroup' parameter returns the MdiTabGroup
' object whose splitter bar will be moved.
'
' get the index of the tab group being moved
Dim index As Integer = e.TabGroup.Manager.TabGroups.IndexOf(e.TabGroup)
' the other affect tab group will be the next one
'Dim adjacentTabGroup As MdiTabGroup = e.TabGroup.Manager.TabGroups(index + 1)
Dim msg As String = String.Format("SplitterDragging: Moving bar between {0} and {1}", index, index + 1)
System.Diagnostics.Debug.WriteLine(msg)
End Sub