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)