PrivateSub Button_Click(sender AsObject, e As RoutedEventArgs)
Dim gr AsNew OutlookBarGroup()
xamOutlookBar1.Groups.Add(gr)
Dim xob As XamOutlookBar = XamOutlookBar.GetOutlookBar(gr)
Dim cmd As RoutedCommand = OutlookBarCommands.ShowFewerButtonsCommand
xob.ExecuteCommand(cmd)
End Sub