Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub ultraExplorerBar1_ActiveItemChanging(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinExplorerBar.CancelableItemEventArgs) Handles ultraExplorerBar1.ActiveItemChanging
' Don't allow the ActiveItem to change if the current active item has a key of 'Tools'
If (e.Item.Key = "Tools") Then
e.Cancel = True
End If
End Sub