Private WithEvents HTMLDoc As HTMLDocument
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Set HTMLDoc = WebBrowser1.Document
End Sub

Private Function HTMLDoc_oncontextmenu() As Boolean
    ' ...
End Function
 
Private Function HTMLDoc_onselectstart() As Boolean
    ' ...
End Function