Ok I see.

 

For me the menu 'Open in new tab' is enabled.

Have you the same menu disabled in Internet Explorer or just in Web Control?

 

 

 

Hello Shipwreck,

 

To open the new web page in a new tab as internet explorer do, you must set (load) a new web browser control and open the new url in it:

    WB(2).Navigate NewUrl

 

If you want to prevent the actual web page to open in a new web page (will be open in internet explorer, if you don't prevent it), you can write:

 

Private Sub WB_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Cancel = True
    WB.Navigate NewUrl
End Sub

to force the web page to open in the actual web control.

 

********************************************

Displaying multiple context menus seems to be a more complicated subject, I haven't explore yet.

 

I can perhap's give you a direction:

 

Add of course, a reference to Microsoft HTML Object Library

 

Place in the declaration section,

 

Private WithEvents Doc As HTMLDocument

 

' *** To set web document

Private Sub WB_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  If (pDisp Is WB.Object) Then
         Set Doc = WB.document
  End If
End Sub

 

' *** To test right clic

Private Sub Doc_onmousedown()
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"
            ' HREF
          Case "IMG"
            ' IMG
          End Select
      End If
  End With
End Sub

 

Hope you can explore further.