请教，vb怎么鼠标模拟按键？？

VB模拟鼠标移动与单击

需要用到API函数

这个代码片断 需要 一个窗体Form~~三个命令按钮CommandButton 四个标签框Label 一个模块
注释：以下代码在Form1中

注释：************[ Functions ]********************************
#If Win32 Then
Private 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)
注释：【参数表】
注释：dwFlags -------- Long，下述标志的一个组合
注释：MOUSEEVENTF_ABSOLUTE
注释：dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中，屏幕在水平和垂
注释： 直方向上均匀分割成65535×65535个单元 - MOUSEEVE
注释： NTF_MOVE
注释：移动鼠标
注释：MOUSEEVENTF_LEFTDOWN
注释：模拟鼠标左键按下
注释：MOUSEEVENTF_LEFTUP
注释：模拟鼠标左键抬起
注释：MOUSEEVENTF_RIGHTDOWN
注释：模拟鼠标右键按下
注释：MOUSEEVENTF_RIGHTUP
注释：模拟鼠标右键按下
注释：MOUSEEVENTF_MIDDLEDOWN
注释：模拟鼠标中键按下