Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button17.Click
' Add some Groups and Items to the control. Turn off drawing while we do so.
Me.ultraExplorerBar1.BeginUpdate()
Dim i As Integer
For i = 0 To 4
Dim group As UltraExplorerBarGroup = Me.ultraExplorerBar1.Groups.Add()
group.Text = "Group " + i.ToString()
Dim j As Integer
For j = 0 To 4
Dim item As UltraExplorerBarItem = group.Items.Add()
item.Text = "Group " + i.ToString() + " - Item " + j.ToString()
item.ToolTipText = item.Text
Next
Next
' Turn drawing back on.
Me.ultraExplorerBar1.EndUpdate()