Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button85_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button85.Click
' Remove groups from the Groups collection using the different overloads.
' Can't proceed unless we have at least 1 group.
If (Me.ultraExplorerBar1.Groups.Count < 1) Then
Return
End If
' Groups.Remove(UltraExplorerBarItem item)
Dim group As UltraExplorerBarGroup = Me.ultraExplorerBar1.Groups(0)
Me.ultraExplorerBar1.Groups.Remove(group)
' Groups.RemoveAt(int index)
If (Me.ultraExplorerBar1.Groups.Count > 0) Then
Me.ultraExplorerBar1.Groups.RemoveAt(0)
End If
End Sub