Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTabs
Imports Infragistics.Win.UltraWinTabControl
Private Sub ultraTabControl1_TabMoving(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTabControl.TabMovingEventArgs) Handles ultraTabControl1.TabMoving
' The following code prevents any tab from being moved
' before the first tab.
If e.RelativeTab.VisibleIndex = 0 And e.RelativePosition = RelativePosition.Before Then
e.Cancel = True
Debug.WriteLine("Can't move tab '" + e.Tab.Text + "' before 1st tab.")
End If
End Sub