Private Sub XOBinit()
Dim optionsStyle As Style = New Style(GetType(NavigationPaneOptionsControl))
optionsStyle.Setters.Add(New Setter(BackgroundProperty, New SolidColorBrush(Colors.LightGreen)))
xamOutlookBar1.NavigationPaneOptionsControlStyle = optionsStyle
Dim popupButtonStyle As Style = New Style(GetType(ToggleButton))
popupButtonStyle.Setters.Add(New Setter(ContentProperty, "Show popup"))
Me.Resources.Add(XamOutlookBar.NavigationPaneToggleButtonStyleKey, popupButtonStyle)
End Sub