Catch mouse clicks system wide with API call

[Nickneem]

I' m trying to disable all right mouse clicks by using the
vbAccelerator Windows Hooks Library
The small (systray / console) app. must catch all (right) mouseclicks
before they are received by the users application (for instance IE).
I' m not getting passed the stage where I write to the console catching
clicks on my applications form..

I really doubt if this one's possible at all (especially for an API
noob like me)..

Thanks in advance,

Michael
Public Class frmCatchClick
Inherits System.Windows. Forms.Form
Implements vbalWinHook6.IW indowsHook
#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeCompo nent()

'Add any initialization after the InitializeCompo nent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Disp ose()
End If
End If
MyBase.Dispose( disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.Componen tModel.IContain er

'NOTE: The following procedure is required by the Windows Form
Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents btnOK As System.Windows. Forms.Button
Friend WithEvents StatusBar1 As System.Windows. Forms.StatusBar
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()
Dim resources As System.Resource s.ResourceManag er = New
System.Resource s.ResourceManag er(GetType(frmc atchclick))
Me.btnOK = New System.Windows. Forms.Button
Me.StatusBar1 = New System.Windows. Forms.StatusBar
Me.SuspendLayou t()
'
'btnOK
'
Me.btnOK.BackCo lor = System.Drawing. SystemColors.Co ntrol
Me.btnOK.Locati on = New System.Drawing. Point(96, 16)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing. Size(80, 24)
Me.btnOK.TabInd ex = 0
Me.btnOK.Text = "Start Mouse"
'
'StatusBar1
'
Me.StatusBar1.L ocation = New System.Drawing. Point(0, 59)
Me.StatusBar1.N ame = "StatusBar1 "
Me.StatusBar1.S ize = New System.Drawing. Size(294, 16)
Me.StatusBar1.T abIndex = 1
Me.StatusBar1.T ext = "StatusBar1 "
'
'frmcatchclick '
Me.AutoScaleBas eSize = New System.Drawing. Size(5, 13)
Me.BackColor = System.Drawing. Color.LightStee lBlue
Me.ClientSize = New System.Drawing. Size(294, 75)
Me.Controls.Add (Me.StatusBar1)
Me.Controls.Add (Me.btnOK)
Me.FormBorderSt yle =
System.Windows. Forms.FormBorde rStyle.Fixed3D
Me.Icon = CType(resources .GetObject("$th is.Icon"),
System.Drawing. Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmcatchclickM ouse"
Me.Text = "frmcatchclickM ouse"
Me.TopMost = True
Me.ResumeLayout (False)

End Sub

#End Region
Private Sub btnOK_Click(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles btnOK.Click
Me.DialogResult = DialogResult.OK
End Sub
Private Function IWindowsHook_Ho okProc(ByVal eType As
vbalWinHook6.EH THookTypeConsta nts, ByVal nCode As Integer, ByVal wParam
As Integer, ByVal lParam As Integer, ByRef bConsume As Boolean) As
Integer Implements vbalWinHook6.IW indowsHook.Hook Proc
Dim ctlOver As System.Windows. Forms.Control
Dim bS As Boolean
Dim lC As Integer
Dim lhWNd As Integer
Dim bSkip As Boolean

With MyHook.MouselPa ram(lParam)
Select Case wParam
Case vbalWinHook6.EH TMousewParamVal ues.WM_MOUSEMOV E
StatusBar1.Text = "MOUSEMOVE"
Case vbalWinHook6.EH TMousewParamVal ues.WM_RBUTTOND OWN
', vbalWinHook6.EH TMousewParamVal ues.WM_LBUTTOND OWN
StatusBar1.Text = "MOUSE DOWN!!!"
Case vbalWinHook6.EH TMousewParamVal ues.WM_NCMOUSEM OVE
StatusBar1.Text = "NOCLIENTMOUSEM OVE"
Case vbalWinHook6.EH TMousewParamVal ues.WM_NCRBUTTO NDOWN
StatusBar1.Text = "NOCLIENT RIGHT DOWN"
Case vbalWinHook6.EH TMousewParamVal ues.WM_RBUTTONU P
StatusBar1.Text = " RIGHT UP"
Case vbalWinHook6.EH TMousewParamVal ues.WM_NCRBUTTO NUP
StatusBar1.Text = "NOCLIENT RIGHT UP!"
End Select

End With
End Function
Private Sub frmcatchclick_L oad(ByVal sender As Object, ByVal e As
System.EventArg s) Handles MyBase.Load
MyHook.InstallH ook(Me,
vbalWinHook6.EH THookTypeConsta nts.WH_MOUSE)
End Sub
End Class