Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button37.Click
' Look for the first StateButton type Item that is Checked and in view and display its text.
Dim group As UltraExplorerBarGroup
For Each group In Me.ultraExplorerBar1.Groups
Dim item As UltraExplorerBarItem
For Each item In group.Items
If (item.SettingsResolved.Style = ItemStyle.StateButton AndAlso _
item.Checked = True AndAlso _
item.IsInView = True) Then
Debug.WriteLine("The first checked item that is in view is: '" + item.Text + "'")
Exit For
End If
Next
Next
End Sub