Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button30.Click
' For every Group that has a Key of "Options" and no tooltip text, set the tooltip text to "Drawing Options"
Dim group As UltraExplorerBarGroup
For Each group In Me.ultraExplorerBar1.Groups
If (group.Key = "Options" AndAlso group.ToolTipText.Length = 0) Then
group.ToolTipText = "Drawing Options"
End If
Next
End Sub