Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTabs
Imports Infragistics.Win.UltraWinTabControl
Private Sub ultraTabControl1_TabMoved(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTabControl.TabMovedEventArgs) Handles ultraTabControl1.TabMoved
Dim sb As New System.Text.StringBuilder()
sb.Append("Tab '")
sb.Append(e.Tab)
sb.Append("' has been moved ")
sb.Append(e.RelativePosition)
sb.Append(" tab '")
sb.Append(e.RelativeTab)
sb.Append("'.")
Debug.WriteLine(sb.ToString())
End Sub