Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub ultraExplorerBar1_ItemRemoving(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinExplorerBar.CancelableItemEventArgs) Handles ultraExplorerBar1.ItemRemoving
' Don't allow the item to be removed if it is the only item in its group.
If (e.Item.Group.Items.Count = 1) Then
e.Cancel = True
End If
End Sub