Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button44.Click
' Clone the first Item in the first Group and add it to each subsequent Group.
If (Me.ultraExplorerBar1.Groups.Count > 0 AndAlso Me.ultraExplorerBar1.Groups(0).Items.Count > 0) Then
Dim i As Integer
For i = 1 To Me.ultraExplorerBar1.Groups.Count - 1
Me.ultraExplorerBar1.Groups(i).Items.Add(Me.ultraExplorerBar1.Groups(0).Items(0).Clone())
Next
End If
End Sub