'
        ' Start the timer and start clicking
        '
        ' numUpDown.Value is set by the user with a NumericUpDown control
        Timer1.Interval = numUpDown.Value * 1000 ' Timer runs in milliseconds
        Timer1.Enabled = True
 
    Private Sub Timer1_Tick( _
                ByVal sender As System.Object, _
                ByVal e As System.EventArgs) _
                Handles Timer1.Tick
        '
        ' Do not re-initialize blink timer if it
        ' is already running This timer is used to let the user
        ' know the click timer is running.
        '
        If Timer2.Enabled = False Then
            Timer2.Interval = 1000      ' One second timer to blink
            Timer2.Enabled = True       ' red and green
        End If
        ' strMouseAction is set by user to be "R" or "L" for mouse button
        Call subMouseClick(strMouseAction)
        Application.DoEvents()          ' Allow for exit
    End Sub

    Public Sub subMouseClick(ByVal Action As String)
        Dim ptrFGWindow As IntPtr = GetForegroundWindow()
        Dim dwFlagsD As Int32    ' mouse button down
        Dim dwFlagsU As Int32    ' mouse button up
        '
        ' Check to make sure the proper window is top window
        ' Do not send mouse clicks to undesired windows
        '
        ' i64Handle is actually hWnd
        If i64Handle = ptrFGWindow Then
            Select Case Action
                Case "L"
                    dwFlagsD = MOUSEEVENTF_LEFTDOWN
                    dwFlagsU = MOUSEEVENTF_LEFTUP
                Case "R"
                    dwFlagsD = MOUSEEVENTF_RIGHTDOWN
                    dwFlagsU = MOUSEEVENTF_RIGHTUP
            End Select
            mouse_event(dwFlagsD, 0&, 0&, 0, 0)
            mouse_event(dwFlagsU, 0&, 0&, 0, 0)
        End If
    End Sub