关于OLE控件

这个问题要有以下思路：
1.　将鼠标自动移动到需要的位置，用 API 函数 SetCursorPos；
2.　模拟鼠标点击，用 API 函数 mouse_event。
剩下的事情就是自己去查资料了。

OLE1.SetFocus
Sendkeys"{enter}" '　模拟回车键
但不一定会成功。

给你一个例程，可以快速入门：
'　模拟鼠标左键点击
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
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)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
AutoPressMouse 125, 159
Sleep 100 '　间隔 0.1 秒
AutoPressMouse 165, 254 '　双击就与上面的坐标值相同
End Sub
Private Sub AutoPressMouse(x As Long, y As Long)
SetCursorPos x, y
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub