Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button46.Click
' Move the first item in the first group to the second group.
If (Me.ultraExplorerBar1.Groups.Count > 1 AndAlso Me.ultraExplorerBar1.Groups(0).Items.Count > 0) Then
Me.ultraExplorerBar1.Groups(0).Items(0).Reposition(Me.ultraExplorerBar1.Groups(1))
End If
' Move the first item in the second group after the second item in the second group.
If (Me.ultraExplorerBar1.Groups.Count > 1 AndAlso Me.ultraExplorerBar1.Groups(1).Items.Count > 1) Then
Me.ultraExplorerBar1.Groups(1).Items(0).Reposition(Me.ultraExplorerBar1.Groups(1).Items(1), ItemPosition.Next)
End If
End Sub