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
)
Const MOUSEEVENTF_LEFTDOWN = & H2
Const MOUSEEVENTF_LEFTUP = & H4
Private Sub Command1_Click()
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0 , 0 , 0 , 0
End Sub
Const MOUSEEVENTF_LEFTDOWN = & H2
Const MOUSEEVENTF_LEFTUP = & H4
Private Sub Command1_Click()
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0 , 0 , 0 , 0
End Sub