按键精灵命令和VB命令通用的方法

把按键精灵几十个命令做成模块直接在vb里使用，这样可以把按键精灵的脚本文件直接复制到VB里运行，并制作成vb的.exe文件。同样vb命令也可以做成插件在按键精灵运行，这样按键精灵和vb互相共用是不是很方便哦。
例子：移动鼠标到 100，100，左键点击3下
按键精灵命令是：
MoveTo 100,100
LeftClick 3
在vb里建一个模块：
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
'移动鼠标
Public Function MoveTo(ByVal x As Long, ByVal y As Long)
Call SetCursorPos(x, y)
End Function
'鼠标左键点击x次
Public Function LeftClick(ByVal x As Long)
Dim i As Long
For i = 1 To x
    mouse_event &H2 Or &H4, 0, 0, 0, 0
Next
End Function

测试：在vb建一个命令按键,把按键精灵命令复制到vb里
Private Sub Command1_Click()
MoveTo 100,100
LeftClick 3
End Sub
怎么样，方便把，把vb命令做成插键，论坛上很多，自己找吧就不多说了。
这样命令在按键精灵和vb里怎么用都可以不会搞错用的地方了。