vb里如何调用VBS findpic的例子 高手请教啊

'先下载按键精灵第六版,主要是要引用按键精灵QMDispatch.dll 里的函数
'解压缩后把目录下所有的.dll档 复制到 C:\WINNT\system32下面
'开始 执行 输入regsvr32 C:\WINNT\system32\QMDispatch.dll
'然后到vb里面 专案>设定引用项目
'打以下程式码,把要找的图 放在d:\ 档名用icon.bmp
'找到会秀出座标，完成
'我在vb6 sp6下执行成功 没问题

Option Explicit
Private Declare Function FindPic Lib "QMDispatch" () As Long

Private Sub Command1_Click()

Dim pos As Long
Dim QMDispatchObj As Object

Set QMDispatchObj = CreateObject("QMDispatch.QMFunction")
'参数 左, 上, 右, 下, 寻找图片的路径, 相似度
pos = QMDispatchObj.FindPic(0, 0, 1280, 1024, "d:\icon.bmp", 0.9)
MsgBox Int(pos / 8192) 'X左边
MsgBox pos Mod 8192 'Y左边
End Sub

以前做过类似 应该有效 你可以到按键论坛找新的DLL