Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub ultraExplorerBar1_GroupAdding(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinExplorerBar.CancelableGroupEventArgs) Handles ultraExplorerBar1.GroupAdding
' Don't add the group to be added if we already have more than 10 groups.
If (Me.ultraExplorerBar1.Groups.Count > 10) Then
e.Cancel = True
End If
End Sub