Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTabs
Imports Infragistics.Win.UltraWinTabControl
Private Sub ultraTabControl1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ultraTabControl1.MouseDown
' The TabFromPoint method takes a point in client
' coordinates and returns the tab under that point
' or Nothing if the point is not over a tab
Dim tab As UltraTab = Me.ultraTabControl1.TabFromPoint(New Point(e.X, e.Y))
If Not tab Is Nothing Then
Debug.WriteLine("Mouse down on tab '" + tab.Text + "'")
End If
End Sub