[SOLVED] Multiple Custom Context menus

Private WithEvents Doc As HTMLDocument
Dim rightClickedURL As Variant
Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
    Select Case Control.id
        Case 1001
            WB.navigate rightClickedURL
            rightClickedURL = ""
    End Select
End Sub
Private Sub Form_Load()
    WB.WebBrowserContextMenu = False
    WB.navigate "https://forum.codejock.com/forum_posts.asp?TID=13523"
End Sub
Private Sub Form_Resize()
    WB.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub WB_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Set Doc = WB.document
End Sub
Private Sub Doc_onmousedown()
On Error Resume Next
    Dim Popup As CommandBar
    Dim Control As CommandBarControl
    Dim Controlpopup As CommandBarPopup
    Dim Controlbtn As CommandBarButton
    Dim Elem As IHTMLElement
    Set Elem = Doc.parentWindow.event.srcElement
    With Elem
        If Doc.parentWindow.event.button = 2 Then
            Dim msg As String
            Select Case UCase$(.tagName)
                Case "A"
                    Set Popup = CommandBars.Add("PopupGroup", xtpBarPopup)
                    Set Control = Popup.Controls.Add(xtpControlLabel, 1000, "URL's...")
                        Set Control = Popup.Controls.Add(xtpControlButton, 1001, "Open [" & .href & "]")
                        rightClickedURL = .href
                    Popup.ShowPopup
          End Select
      End If
  End With
End Sub