Me.ultraExplorerBar1.Style = UltraExplorerBarStyle.OutlookNavigationPane Dim aGroup As New UltraExplorerBarGroup() aGroup = Me.ultraExplorerBar1.Groups.Add() aGroup.Text = "Employees Info" aGroup.Key = "g_EmployeesInfo" Dim bGroup As UltraExplorerBarGroup = Me.ultraExplorerBar1.Groups.Add("g_DepartmentInfo") bGroup.Text = "Department Info" bGroup.Key = "g_DepartmentInfo" Dim cGroup As UltraExplorerBarGroup = Me.ultraExplorerBar1.Groups.Add("g_Benefits") cGroup.Text = "Benefits Info" cGroup.Key = "g_BenefitsInfo" ' Move cGroup from last position to the first position Me.ultraExplorerBar1.Groups.Reposition(cGroup, 0)