你要做的就是把它里面的精华取出来给自己用就行了。
当然，在这之前你要先看懂它，而不是运行它。

就是看不懂啦
所以想借助运行来看懂它啦

没看懂，就一个一个函数查，一条一条语句研究。
我相信给你一个现成的代码，能直接用的话你根本就不会去想弄明白它。

Set grdDataGrid.DataSource = _
datPrimaryRS.Recordset("ChildCMD").UnderlyingValue
现在比如这一句,我认为它只是设定grdDataGrid的显示内容,因为我的数据库与它对应不上,所以我先把这一句给注解了.我把我的grdDataGrid.DataSource 绑定了datPrimaryRS(就是那个数据源了啦),而datPrimaryRS绑定了一张表.
然后,它就没有任何反应了.
因此我想我可能理解错误了,它不止这点功能吧?
其它我都没动了,我把我的VB6重装过了,前面说的退出现象不发生了.但现在是照我这样改后运行没结果了.

你为什么一定要用它的原代码运行呢？你HOOK时直接HOOK窗体测试一下不就行了？

真的不好意思,还有个HOOK窗体的?!
看来我不懂的东东太多了啊

说实话,我对hook是一头的雾水啊.

晕,我试过了,那个程序根本就没获取MOUSE的信息.

没人可以再帮我一下了吗?

再顶个二天.