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