Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTabs
Imports Infragistics.Win.UltraWinTabbedMdi
Private Sub ActivateCustomTab()
' iterate through all the tab groups
Dim tabGroup As MdiTabGroup
For Each tabGroup In Me.ultraTabbedMdiManager1.TabGroups
' iterate through all the tab objects
' contained within the tab group
Dim tab As MdiTab
For Each tab In tabGroup.Tabs
' if the tab is not a custom tab, i.e.
' it does not represent a form that implements
' the ICustomMdiTab interface. this interface
' is implemented by an ultradockmanager
' mdi child form but could be used by other
' forms
If tab.IsCustomTab Then
' activate the first one
tab.Activate()
Return
End If
Next
Next
End Sub