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.

 

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?