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" ' cGroup を最後の位置から最初の位置に移動します Me.ultraExplorerBar1.Groups.Reposition(cGroup, 0)