Public Class Form1
    Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal _
      dwFlags As Integer, ByVal dx As Integer, _
                   ByVal dy As Integer, ByVal cButtons As Integer, ByVal _
                   dwExtraInfo As Integer)
    Private Const MOUSEEVENTF_LEFTDOWN = &H2
    Private Const MOUSEEVENTF_LEFTUP = &H4
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Windows.Forms.Cursor.Position = New Point(300, 300)  ' Screenposition
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 3000
        Timer1.Start()
    End Sub
End Class