100分请教VB如何实现这样的功能？

VB6 测试通过。
包含两个文件，一个窗体代码，一个模块儿代码：

第一个文件

'''''''''''''''''''''''''''
' 《《《钩子说明》》》
' 要实现这个要求，需要使用系统钩子。
' 多数系统钩子都需要使用标准的 DLL 文件，鼠标同样。但是有一个底层鼠标钩子，可以要求代码在 exe 中。
' VB 无法制作标准的 DLL 文件（虽然有些文章讲解了 VB 怎样制作含有钩子代码的 DLL），因此这里采用底层鼠标钩子。
' 底层钩子支持的系统是：Windows NT/2000/XP
' 底层鼠标钩子是鼠标的底层操作，因此，只有“左键按下”“左键弹起”这样的消息，双击需要自己写代码根据两次按下左键的
' 时间差来判断，比较麻烦，也不是这个程序的重点，因此这里略过。这里用按下鼠标右键代替原文中的双击。
' 总的来说，VB 本身不适合制作系统级的东西，效率低。尤其做钩子，可能会影响到系统的稳定性。
' 以下代码虽然实现了 VB 做钩子，但是性能仍不理想。
' 很早以前用 VC 写过一个底层鼠标钩子的程序，可以让 VB6 的窗体支持鼠标滚轮，这里下载：
' http://www.ligsoft.com/downloads/VBWheel.rar
' 执行后，可以明显感觉到 VB 和 VC 的差距。
'
' 附：底层鼠标钩子可以截获的鼠标消息如下：
' WM_LBUTTONDOWN, WM_LBUTTONUP, WM_MO