Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button42.Click
' Toggle the visible status of each Item in the ActiveGroup.
If (Me.ultraExplorerBar1.ActiveGroup Is Nothing) Then
Return
End If
Dim item As UltraExplorerBarItem
For Each item In Me.ultraExplorerBar1.ActiveGroup.Items
item.Visible = Not item.Visible
Next
End Sub