vb做的程序在后台怎么捕捉鼠标的拖放动作

Question

求这个代码比如说打开一个网页后 鼠标拖动某个下载的链接 然后vb程序就 提示msgbox("该下载地址为：什么什么什么")
  类似于迅雷有个监控下载的一样
谢谢！！！

Answer 1

Private Sub AddHook()  '安装鼠标钩子
  lHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf CallMouseHookProc, App.hInstance, 0)
End Sub用vb6生成程序时为什么每次都提示  操作符 AddressOf 使用无效

Answer 2

CallMouseHookProc过程要放在模块里，并且是Public

Answer 3

http://download.csdn.net/source/1860777