Imports System.Runtime.InteropServices
Private Shared Function SetCursorPos(ByVal X As Integer, ByVal Y As Integer) As Boolean End Function
Private Shared Sub mouse_event(ByVal flags As MouseEventFlag, ByVal dx As Integer, ByVal dy As Integer, ByVal data As UInteger, ByVal extraInfo As UIntPtr) End Sub
Private Enum MouseEventFlag As UInteger
Move = &H1
LeftDown = &H2
LeftUp = &H4
RightDown = &H8
RightUp = &H10
MiddleDown = &H20
MiddleUp = &H40
XDown = &H80
XUp = &H100
Wheel = &H800
VirtualDesk = &H4000
Absolute = &H8000
End Enum
SetCursorPos(intX, intY)mouse_event(MouseEventFlag.LeftDown, intX, intY, 0, UIntPtr.Zero)
mouse_event(MouseEventFlag.LeftUp, intX, intY, 0, UIntPtr.Zero)
