Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button83_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button83.Click
' Add groups to the Groups collection using the different overloads.
' Groups.Add()
Dim group As UltraExplorerBarGroup = Me.ultraExplorerBar1.Groups.Add()
group.Text = "FirstGroupAdded"
' Groups.Add(UltraExplorerBarGroup group)
group = New UltraExplorerBarGroup("SecondGroupKey")
group.Text = "SecondGroupAdded"
Dim index As Integer = Me.ultraExplorerBar1.Groups.Add(group)
' Groups.Add(string Key, string Text)
group = Me.ultraExplorerBar1.Groups.Add("ThirdGroupKey", "ThirdGroup")
' Groups.Add(string Key)
group = Me.ultraExplorerBar1.Groups.Add("FourthGroupKey")
' Groups.Add(string Key)
Dim group1 As UltraExplorerBarGroup = New UltraExplorerBarGroup()
Dim group2 As UltraExplorerBarGroup = New UltraExplorerBarGroup()
Dim group3 As UltraExplorerBarGroup = New UltraExplorerBarGroup()
Dim group4 As UltraExplorerBarGroup = New UltraExplorerBarGroup()
Me.ultraExplorerBar1.Groups.AddRange(New UltraExplorerBarGroup() {group1, group2, group3, group4})
End Sub