Context Menu

        Dim ContextMenu As ContextMenuStrip
        ContextMenu = New ContextMenuStrip()

        ContextMenu.Items.Add("Selection 1")
        ContextMenu.Items.Add("Selection 2")
        ContextMenu.Items.Add("Selection 3")
        ContextMenu.Items.Add("Selection 4")

        AddHandler ContextMenu.Items(0).Click, AddressOf Selection1ToolStripMenuItem_Click
        AddHandler ContextMenu.Items(1).Click, AddressOf Selection2ToolStrpMenuItem_Click
        AddHandler ContextMenu.Items(2).Click, AddressOf Selection3ToolStrpMenuItem_Click
        AddHandler ContextMenu.Items(3).Click, AddressOf Selection4ToolStrpMenuItem_Click

        WebBrowser1.IsWebBrowserContextMenuEnabled = False
        WebBrowser1.ContextMenuStrip = ContextMenu
        WebBrowser1.Navigate("https://www.google.co.uk/")


    Private Sub Selection1ToolStripMenuItem_Click(sender As Object, e As EventArgs)
        MessageBox.Show("Selection 1")
    End Sub

    Private Sub Selection2ToolStrpMenuItem_Click(sender As Object, e As EventArgs)
        MessageBox.Show("Selection 2")
    End Sub

    Private Sub Selection3ToolStrpMenuItem_Click(sender As Object, e As EventArgs)
        MessageBox.Show("Selection 3")
    End Sub

    Private Sub Selection4ToolStrpMenuItem_Click(sender As Object, e As EventArgs)
        MessageBox.Show("Selection 4")
    End Sub