Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTabs
Imports Infragistics.Win.UltraWinTabControl
Private Sub LoadNewMappings()
Dim newMapping As UltraTabControlKeyActionMapping
' Add a custom key/action mapping to the tab that
' will navigate to the first tab (if that tab
' isn't already selected when the tab control
' has focus and the users presses the ‘H’ key
' (unless the 'alt’ key is also pressed).
newMapping = New UltraTabControlKeyActionMapping(Keys.H, UltraTabControlAction.SelectFirstTab, UltraTabControlStates.FirstTab, 0, Infragistics.Win.SpecialKeys.Alt, 0)
Me.ultraTabControl1.KeyActionMappings.Add(newMapping)
End Sub