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