The following example opens the Outlook Bar group named My Shortcuts.
Dim myOlApp As New Outlook.Application
Dim myOlBar As Outlook.OutlookBarPane
Dim myOlGroup As Outlook.OutlookBarGroup
Set myOlBar = myOlApp.ActiveExplorer.Panes.Item("OutlookBar")
Set myOlGroup = myOlBar.Contents.Groups.Item("My Shortcuts")
Set myOlBar.CurrentGroup = myOlGroup
If you use VBScript, you do not create the Application object. This example shows how to perform the same task using VBScript.
Set myOlBar = Application.ActiveExplorer.Panes.Item("OutlookBar")
Set myOlGroup = myOlBar.Contents.Groups.Item("My Shortcuts")
Set myOlBar.CurrentGroup = myOlGroup