Codenstuff.com

    Const MOUSEEVENTF_LEFTDOWN As UInteger = &H2
    Const MOUSEEVENTF_LEFTUP As UInteger = &H4
    Const MOUSEEVENTF_RIGHTDOWN As UInteger = &H8
    Const MOUSEEVENTF_RIGHTUP As UInteger = &H10
    Const MOUSEEVENTF_MIDDLEDOWN As UInteger = &H20
    Const MOUSEEVENTF_MIDDLEUP As UInteger = &H40

    Const MOUSEEVENTF_ABSOLUTE As UInteger = &H8000
    Const MOUSEEVENTF_MOVE As UInteger = &H1

    Public Structure MOUSEINPUT
        Public dx As Integer
        Public dy As Integer
        Public mouseData As UInteger
        Public dwFlags As UInteger
        Public time As UInteger
        Public dwExtraInfo As IntPtr
    End Structure

    Public Structure INPUT
        Public type As UInteger
        Public mi As MOUSEINPUT
    End Structure

    <DllImport("user32.dll")> Shared Function SendInput(ByVal nInputs As UInteger, ByRef pInputs As INPUT, ByVal cbSize As Integer) As UInteger
    End Function

    Dim inp As INPUT = New INPUT()
    Dim inpsize As Integer = Marshal.SizeOf(inp)

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

        'inp.mi.dwFlags = MOUSEEVENTF_MOVE 'move mouse relative to its current position
        'inp.mi.dwFlags = MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE  'move to a set X/Y

        'inp.mi.dx = 65535 / (Screen.PrimaryScreen.Bounds.Width / 50) 'this works with absolute positioning x:50, Y:100
        'inp.mi.dy = 65535 / (Screen.PrimaryScreen.Bounds.Height / 100)

        'inp.mi.dx = 30' this works with relative positioning +X:30, +Y:60
        'inp.mi.dy = 60

        'inp.mi.dwFlags = MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP 'simulate left click down/up
        'inp.mi.dwFlags = MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP  'simulate right click down/up
        'inp.mi.dwFlags = MOUSEEVENTF_MIDDLEDOWN Or MOUSEEVENTF_MIDDLEUP  'simulate middle click down/up

        SendInput(1, inp, inpsize)

    End Sub

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

        Timer1.Interval = 3000 'delay
        
        inp.mi.dwFlags = MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE

        inp.mi.dx = 65535 / (Screen.PrimaryScreen.Bounds.Width / 5)
        inp.mi.dy = 65535 / (Screen.PrimaryScreen.Bounds.Height / 10)

        SendInput(1, inp, inpsize)

        inp.mi.dwFlags = MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP

        SendInput(1, inp, inpsize)

    End Sub

inp.mi.dx =
inp.mi.dy =

inp.mi.dx = 25555
inp.mi.dy = 25555