vbsic code:
--------------------------------------------------------------------------------
Public Function MouseHookProc(ByVal nCode As Long, ByVal wParam As Long, mhs As MOUSEHOOKSTRUCT) As Long
'Public Function MouseHookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim strBuffer As String
Dim lngBufferLen As Long
Dim strClassName As String
Dim lngResult As Long
If (nCode >= 0 And wParam = WM_MOUSEWHEEL) Then
'Preinitialize string
strBuffer = Space(255)
'lngBufferLen = Len(strBuffer)

'This is the string that holds the class name that we are looking for
strClassName = "Internet Explorer_Server"
'Debug.Print strClassName

'Get the classname for the Window that has been clicked, making sure something is returned
'If the function returns 0, it has failed
lngResult = GetClassName(mhs.hwnd, strBuffer, Len(strBuffer))
'Debug.Print Left$(strBuffer, lngResult)

If lngResult > 0 Then
'Check to see if the class of the window we clicked on is the same as above
If Left$(strBuffer, lngResult) = strClassName Then
'Value is the same. Squash the command
MouseHookProc = 1
'Invoke our Custom Context Menu.
'frmMain.PopupMenu frmMain.mnuPopup
Exit Function
End If
End If
End If

MouseHookProc = CallNextHookEx(gLngMouseHook, nCode, wParam, mhs)
End Function

------------------------------------------------------------------------------------
now I can detect the WM_MOUSEWHEEL...
But I couldn't know some informaiton of mouse wheeling
for example,the rotation of mouse wheel...
how could i do?
thanx..........