Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
' If there is an ActiveGroup set, set the ActiveItem to the first item within the
' ActiveGroup.
If (Not Me.ultraExplorerBar1.ActiveGroup Is Nothing AndAlso Me.ultraExplorerBar1.ActiveGroup.Items.Count > 0) Then
Me.ultraExplorerBar1.ActiveItem = Me.ultraExplorerBar1.ActiveGroup.Items(0)
Return
End If
' If there is an ActiveItem set, set the ActiveGroup to the group containing the item.
If (Not Me.ultraExplorerBar1.ActiveItem Is Nothing) Then
Me.ultraExplorerBar1.ActiveGroup = Me.ultraExplorerBar1.ActiveItem.Group
Return
End If
End Sub