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

        Randomize()
        Dim speedDown As New Random
        Dim min As Decimal
        Dim max As Decimal

        min = 1000 / FlatTrackBar2.Value
        max = 600 / FlatTrackBar1.Value
        Timer1.Interval = speedDown.Next(max, min)

        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        Timer5.Start()

    End Sub

    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
        Randomize()
        Dim speedUp As New Random
        Timer5.Interval = speedUp.Next(20, 100)

        If MouseButtons = MouseButtons.Left Then
            mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
        End If

    End Sub