Autoclicker随机停止（vb.net）

Question

基本上我的autoclicker出现问题，它确实有效，但过了一段时间它会随机停止，如果我再次按下它会起作用，这是我的代码jw可能出错：

    Private Sub click_Tick(sender As Object, e As EventArgs) Handles click.Tick
    If (toggleBool = True And mDown = True) Then
        mouse_event(&H4, 0, 0, 0, 1)
        mouse_event(&H2, 0, 0, 0, 1)
    End If
End Sub

 Private Sub mHook_Mouse_Left_Down(ByVal ptLocat As System.Drawing.Point) Handles mHook.Mouse_Left_Down
    mDown = True
    If (toggleBool = True And mDown = True) Then
        Dim intLowNumber = CInt(minBar.Value * 10)
        Dim intUpperNumber = CInt(maxBar.Value * 10)
        Dim rand As New Random


        Dim cps As Integer = rand.Next(intLowNumber, intUpperNumber + 1)
        click.Interval = cps
        click.Enabled = True
        click.Start()

        If (jitter = True And mDown = True) Then
            Dim x As Integer = rand.Next(Cursor.Position.X - 3, Cursor.Position.X + 3)
            Dim y As Integer = rand.Next(Cursor.Position.Y - 3, Cursor.Position.Y + 3)
            Cursor.Position = New Point(x, y)
        End If
    End If
End Sub 
    Private Sub mHook_Mouse_Left_Up(ByVal ptLocat As System.Drawing.Point) Handles mHook.Mouse_Left_Up
    mDown = False
    If (toggleBool = True) Then
        click.Enabled = False
    End If
End Sub