ThreadPool For Alpha

   Try
            'Program freezes when randusername is used. Fix is threading or local downloading of file.
            ThreadPool.SetMaxThreads(threadsCB.SelectedItem.ToString, threadsCB.SelectedItem.ToString)
            If Not _stop Then
                If getRB.Checked = True Then
                    For i As Integer = 1 To requestNumNUD.Value
                        Dim url As String = sanitizeInput(urlTB.Text)
                        Dim crack As String = sanitizeInput(crackTB.Text)
                        Dim fail As String = sanitizeInput(failTB.Text)
                        Dim ua As String = sanitizeInput(uaTB.Text)
                        Dim data As String = sanitizeInput(postDataTB.Text)
                        Dim timeout As String = timeoutCB.SelectedItem.ToString
                        Dim cookies As Boolean = cookieCB.Checked
                        Threading.ThreadPool.QueueUserWorkItem(New WaitCallback(Sub() Bot(url, "GET", Timeout, sanitizeInput(ua), crack, fail, Data, cookies)))
                    Next
                ElseIf postRB.Checked = True Then
                    For i As Integer = 1 To requestNumNUD.Value
                        Dim url As String = sanitizeInput(urlTB.Text)
                        Dim crack As String = sanitizeInput(crackTB.Text)
                        Dim fail As String = sanitizeInput(failTB.Text)
                        Dim ua As String = sanitizeInput(uaTB.Text)
                        Dim data As String = sanitizeInput(postDataTB.Text)
                        Dim timeout As String = timeoutCB.SelectedItem.ToString
                        Dim cookies As Boolean = cookieCB.Checked
                        Threading.ThreadPool.QueueUserWorkItem(New WaitCallback(Sub() Bot(url, "POST", Timeout, ua, crack, fail, Data, cookies)))
                    Next
                End If
            Else
                UpdateInfo("Assiging failed, procedure is stopping")
                Exit Sub
            End If
        Catch ex As Exception
            UpdateInfo("Assigning failed unknown error!")
        End Try