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