Imports Infragistics.Win.UltraWinExplorerBar
...
Private Sub AddItemsThroughCode_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim aGroup As New UltraExplorerBarGroup()
Dim anItem As New UltraExplorerBarItem()
aGroup.Text = "Employee Info"
aGroup.Key = "g_EmployeeInfo"
Me.UltraExplorerBar1.Groups.Add(aGroup)
anItem.Key = "i_a_new"
anItem.Text = "A New Item"
aGroup.Items.Add(anItem)
aGroup.Items.Add("i_SteveWalls", "Steve Walls")
End Sub