MenuItemSeparatorStyleKey Field

Imports Infragistics.Windows.DockManager
Imports Infragistics.Windows.DockManager.Events

Private Sub ContentPane_OptionsMenuOpening(ByVal sender As Object, ByVal e As PaneOptionsMenuOpeningEventArgs)
    Dim cp As ContentPane = TryCast(e.OriginalSource, ContentPane)

    If e.Items.Count > 0 Then
        Dim sep As New Separator()
        sep.SetResourceReference(Separator.StyleProperty, XamDockManager.MenuItemSeparatorStyleKey)
        e.Items.Add(sep)
    End If

    ' the OptionsMenuOpening event is raised when you right click on a 
    ' pane's caption or tab item as well as when you click the window 
    ' position menu item in the caption and allows you to add/remove 
    ' items from the menu. 
    Dim mi As New MenuItem()
    mi.Command = ApplicationCommands.Save

    ' to have the menu items use the same styling as the default 
    ' menu items, we'll associate it with the same style that 
    ' the dockmanager uses for its menu items 
    mi.SetResourceReference(MenuItem.StyleProperty, XamDockManager.MenuItemStyleKey)

    e.Items.Add(mi)
End Sub

Private Sub CommandBinding_CanExecute(ByVal sender As Object, ByVal e As CanExecuteRoutedEventArgs)
    ' for the purposes of this demonstration, the save command 
    ' associated with the binding that raises this event is always 
    ' enabled 
    e.CanExecute = True
    e.Handled = True
End Sub

Private Sub CommandBinding_Executed(ByVal sender As Object, ByVal e As ExecutedRoutedEventArgs)
    ' implement save functionality here 
    Dim dlg As New Microsoft.Win32.SaveFileDialog()
    dlg.ShowDialog()
End Sub