требуется совет по поводу WebBrowser =))

[dtit]

Привет!
Тут у меня проблема возникла и я решил поинтересоваться у искушенных людей работавших когда-то с компонентом VB - WebBrowser =))
Безусловно, прикольная вещь в проекте, но мне надо чтобы правая клавиша мышки не открывала контекстное меню и желательно, чтобы сочетание клавиш типа ctrl + C было заблокированно.
Сделать это в простом проекте проще некуда, но WebBrowser сопротивляется... Для него мой код блокировки, такое впечатление, по барабану.
Надеюсь, что знающие люди помогут мне в решении этой проблемы.
Заранее огромное спасибо всем, кто откликнется! =))

[Sebas]

Как то я тоже интересовался, но не делал

//**************************************
//

Public Function MouseHookProc(ByVal nCode As Long, ByVal wParam As Long,
mhs As MOUSEHOOKSTRUCT) As Long
'Prevent Right-Mouse Clicks in WebBrowser Control:
If (nCode >= 0 And wParam = WM_RBUTTONUP) Then
Dim sClassName As String
Dim sTestClass As String
sTestClass = "HTML_Internet Explorer"
sClassName = String$(256, 0)
If GetClassName(mhs.hwnd, sClassName, Len(sClassName)) > 0 Then
If Left$(sClassName, Len(sTestClass)) = sTestClass Then
MouseHookProc = 1
Exit Function
End If
End If
End If
MouseHookProc = CallNextHookEx(l_hMouseHook, nCode, wParam, mhs)
End Function
Public Sub BeginRightMouseTrap()
'Start Trapping Right-Mouse clicks in WebBrowser Control:
l_hMouseHook = SetWindowsHookEx(WH_MOUSE, AddressOf MouseHookProc,
App.hInstance, GetCurrentThreadId)
End Sub
Public Sub EndRightMouseTrap()
'End Trapping Right-Mouse clicks in WebBrowser Control:
UnhookWindowsHookEx l_hMouseHook
End Sub
'//////////////////////////////////////////////////////////////////////
Then add this code to your form:
Private Sub Form_Load()
BeginRightMouseTrap
End Sub
Private Sub Form_Unload(Cancel As Integer)
EndRightMouseTrap
End Sub
Private Function MouseHookProc(ByVal nCode As Long, ByVal wParam As
Long, mhs As MOUSEHOOKSTRUCT) As Long
'Prevent Right-Click in WebBrowser Control:
If (nCode >= 0 And wParam = WM_RBUTTONUP) Then
Dim sClassName As String
Dim sTestClass As String
sTestClass = "HTML_Internet Explorer"
sClassName = String$(256, 0)
If GetClassName(mhs.hwnd, sClassName, Len(sClassName)) > 0 Then
If Left$(sClassName, Len(sTestClass)) = sTestClass Then
MouseHookProc = 1
Exit Function
End If
End If
End If
MouseHookProc = CallNextHookEx(l_hMouseHook, nCode, wParam, mhs)
End Function