Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button25.Click
' Set the font to bold for each group that is Selected, Active or Expanded.
' For each Group that contains a Checked Item, set the font to Italic.
Dim group As UltraExplorerBarGroup
For Each group In Me.ultraExplorerBar1.Groups
If (group.Selected = True Or group.Active = True Or group.Expanded = True) Then
group.Settings.AppearancesSmall.Appearance.FontData.Bold = DefaultableBoolean.True
End If
If (Not group.CheckedItem Is Nothing) Then
group.Settings.AppearancesSmall.Appearance.FontData.Italic = DefaultableBoolean.True
End If
Next
End Sub