<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Sub CreateContextMenu()
    Dim cbr As CommandBar
    Dim cbb As CommandBarButton
    ' Delete the command bar if it already exists
    DeleteContextMenu
    ' Create a new command bar of type msoBarPopup
    Set cbr = CommandBars.Add(Name:="MyBar", Position:=msoBarPopup)
    With cbr
        ' Add first item
        Set cbb = .Controls.Add(type:=msoControlButton)
        With cbb
            .Caption = "Item 1"
            .Style = msoButtonCaption
            .OnAction = "MyFunc1"
        End With
        ' Add second item
        Set cbb = .Controls.Add(type:=msoControlButton)
        With cbb
            .Caption = "Item 2"
            .Style = msoButtonCaption
            .OnAction = "MyFunc2"
        End With
        ' Add third item
        Set cbb = .Controls.Add(type:=msoControlButton)
        With cbb
            .Caption = "Item 3"
            .Style = msoButtonCaption
            .OnAction = "MyFunc3"
        End With
        ' Add fourth item
        Set cbb = .Controls.Add(type:=msoControlButton)
        With cbb
            .Caption = "Item 4"
            .Style = msoButtonCaption
            .OnAction = "MyFunc4"
        End With
    End With
End Sub

' Delete the shortcut menu

Sub DeleteContextMenu()
    On Error Resume Next
    CommandBars("MyBar").Delete
End Sub

' These functions are executed by the shortcut menu items

Function MyFunc1()
    MsgBox "This is MyFunc1", vbInformation
End Function

Function MyFunc2()
    MsgBox "This is MyFunc2", vbInformation
End Function

Function