Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
   x As Long
   y As Long
End Type
Sub position()
Dim vb_Stop As Boolean
Dim z As POINTAPI
vb_Stop = True
i = 0
Do
If GetAsyncKeyState(vbKeyLButton) Then
If i > 0 Then GetCursorPos z: Cells(i, 1) = z.x: Cells(i, 2) = z.y: Sleep 70
i = i + 1
If i > 3 Then vb_Stop = False
End If
Sleep 30
DoEvents
Loop While vb_Stop
End Sub

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal dwData As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub MouseClick(x, y)
Call SetCursorPos(x, y)
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
Sub Click()
x = Cells(1, 1)
y = Cells(1, 2)
Call MouseClick(x, y)
End Sub

Private Type POINTAPI
         x As Long
         y As Long
End Type
Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Sub clickpos()
     Dim i%, curpos As POINTAPI
     Do
         If GetAsyncKeyState(1) And &H8000 Then
             GetCursorPos curpos
             [A1].Offset(i) = curpos.x
             [A1].Offset(i, 1) = curpos.y
             i = i + 1
             Do
                 DoEvents
             Loop While GetAsyncKeyState(1) And &H8000
         End If
         DoEvents
     Loop Until i = 3
End Sub

Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Sub sss()
     Dim h As Long
     h = FindWindowEx(GetDesktopWindow, 0, "Button", "Start")
     If h <> 0 Then
         SendMessage h, &HF5, 0, 0
         SendMessage h, &H202, 0, 0
     End If
End Sub

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Sub Z()
x = Cells(1, 1)
y = Cells(1, 2)
Call SetCursorPos(x, y)
End Sub

Const MOUSEEVENTF_ABSOLUTE = &H8000& '  absolute move

Private Type POINTAPI
           x As Long
           y As Long
End Type
Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const KEY_PRESSED = &H8000
Private Const KEY_RELEASED = &H1
Private Const VK_LButton = &H1

Sub clickpos()
       Dim i%, curpos As POINTAPI
       GetAsyncKeyState VK_LButton
       Do
           If (GetAsyncKeyState(VK_LButton) And KEY_RELEASED) Then
               GetCursorPos curpos
               [A1].Offset(i) = curpos.x
               [A1].Offset(i, 1) = curpos.y
               i = i + 1
           End If
           Sleep 30
           DoEvents
       Loop Until i = 3
End Sub