Mobile

Private Const WM_CONTEXTMENU = &H7B     'message to intercept to suppress context menu
Private wbHWnd As IntPtr    'Hold the pointer of the window to subclass
Private GWL_WNDPROC As IntPtr = New IntPtr((-4))    'Parameter for setwindowlong
Private prevHandle As IntPtr    'Original handle of window to subclass
Private myCallback As New SubclassCallback(AddressOf Me.SubclassCallbackHandler)


' Prototype delegate to handle callbacks from subclassed control
    Private Delegate Function SubclassCallback(ByVal hWnd As IntPtr, ByVal Msg As IntPtr, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr

' Subclasses a control with a callback
Private Declare Function SetWindowLong Lib "coredll" (ByVal hWnd As IntPtr, ByVal nIndex As Int32, ByVal dwNewLong As SubclassCallback) As IntPtr

Private Declare Function GetWindowLong Lib "coredll" (ByVal hWnd As IntPtr, ByVal nIndex As Int32) As IntPtr

' Unsubclasses a control
Private Declare Function SetWindowLong Lib "coredll" (ByVal hWnd As IntPtr, ByVal nIndex As Long, ByVal dwNewLong As IntPtr) As IntPtr

' Forwards a message to a subclassed control
Private Declare Function CallWindowProc Lib "coredll" (ByVal lpPrevWndFunc As IntPtr, ByVal hWnd As IntPtr, ByVal Msg As IntPtr, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr

'** This is in the form load

'Get the handle to the appropriate window to suppress the context menu
Dim ptrChildWindows() As IntPtr = GetWindows(Me.wbMessage.Handle)
Dim ptrChildWindows2() As IntPtr = GetWindows(ptrChildWindows(0))

'Used CE Spy to determine which window received the context menu messages
Me.wbHWnd = ptrChildWindows2(1)
        
' Subclass the window that receives the messages needed to suppress the context menu        
Me.prevHandle = SetWindowLong(Me.wbHWnd, GWL_WNDPROC, Me.myCallback)

' Handles all the messages sent to original handle
    Private Function SubclassCallbackHandler(ByVal hWnd As IntPtr, ByVal Msg As IntPtr, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr

        ' Process whatever messages you want here
        Select Case Msg
            Case WM_CONTEXTMENU
                '    'Don't process
                Return 1
            Case Else
                ' NOTE : THIS IS VERY IMPORTANT ! FORWARD MESSAGE TO ORIGINAL HANDLE
                Return CallWindowProc(Me.prevHandle, hWnd, Msg, wParam, lParam)
        End Select

    End Function

Private Sub frmHTMLMessage_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

        ' Unsubclass control (use overloaded version)
        SetWindowLong(Me.wbHWnd, GWL_WNDPROC, Me.prevHandle)

    End Sub