Public Class Form1
Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwflags As Long)
'leftdown = &h2
'leftup = &h4
'lightdown = &h8
'lightup = &h10
'NIDDLEUP = &H40
'NIDDLEDOWN = &H20

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Cursor = New Cursor(Cursor.Current.Handle)
Cursor.Position = New Point(100, 100)

mouse_event(&H2)
Cursor.Position = New Point(200, 200)
mouse_event(&H4)

End Sub
End Class