FreFilterMessage in a Form VB.NET

under class declaration, implement IMessageFilter

Public Class frmMain
Implements IMessageFilter

add public function PreFilterMessage

_
Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) _
As Boolean Implements IMessageFilter.PreFilterMessage
'Filter MouseWheel message
If (m.Msg = 522) Then
Return True
End If
Return False
End Function

in form.Load, add Application.AddMessageFilter(Me)