Event Form1.Button1.Click
Delay 100
If WaitClick = 32769 Then
GetCursorPos x, y
Form1.InputBox1.Text = x & "|" & y
End If
End Event
