Public Class Form1
    Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Private Const MOUSEEVENTF_MOVE As Integer = &H1          ' mouse move
    Private Const MOUSEEVENTF_LEFTDOWN As Integer = &H2      ' left button down
    Private Const MOUSEEVENTF_LEFTUP As Integer = &H4        ' left button up
    Private Const MOUSEEVENTF_RIGHTDOWN As Integer = &H8     ' right button down
    Private Const MOUSEEVENTF_RIGHTUP As Integer = &H10      ' right button up
    Private Const MOUSEEVENTF_MIDDLEDOWN As Integer = &H20   ' middle button down
    Private Const MOUSEEVENTF_MIDDLEUP As Integer = &H40     ' middle button up
    Private Const MOUSEEVENTF_WHEEL As Integer = &H800       ' wheel button rolled
    Private Const MOUSEEVENTF_ABSOLUTE As Integer = &H8000   ' absolute move

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True



    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        mouse_event(&H1, 1, 1, 0, 0)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class