Private Sub WindowXOB_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs)
Dim binding As Binding
' move up
btnDown.Command = OutlookBarCommands.GroupMoveDownCommand
binding = New Binding("SelectedGroup")
binding.Source = Me.xamOutlookBar1
btnDown.SetBinding(Button.CommandTargetProperty, binding)
' move down
btnUp.Command = OutlookBarCommands.GroupMoveUpCommand
binding = New Binding("SelectedGroup")
binding.Source = Me.xamOutlookBar1
btnUp.SetBinding(Button.CommandTargetProperty, binding)
' select group 1
btnSelect1.Command = OutlookBarCommands.GroupMoveUpCommand
btnSelect1.CommandTarget = Me.xamOutlookBar1
btnSelect1.CommandParameter = Me.xamOutlookBar1.Groups("Group1")
' select group 2
btnSelect2.Command = OutlookBarCommands.GroupMoveUpCommand
btnSelect2.CommandTarget = Me.xamOutlookBar1
btnSelect2.CommandParameter = Me.xamOutlookBar1.Groups("Group2")
' show more buttons
btnMore.Command = OutlookBarCommands.ShowMoreButtonsCommand
btnMore.CommandTarget = Me.xamOutlookBar1
' show fewer buttons
btnFewer.Command = OutlookBarCommands.ShowFewerButtonsCommand
btnFewer.CommandTarget = Me.xamOutlookBar1
' show options
btnOptions.Command = OutlookBarCommands.ShowOptionsCommand
btnOptions.CommandTarget = Me.xamOutlookBar1
' shou popup wheh xamOutlookBar1 is minimized
btnPopup.Command = OutlookBarCommands.ShowPopupCommand
btnPopup.CommandTarget = Me.xamOutlookBar1
End Sub