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