Public Sub register()

        Try

            Dim proxie As WebProxy = New WebProxy(proxies(GetRandom(0, proxies.Count - 1)))
            publicproxy = proxie
            Dim email As String = RandomString(6, 10) + "@gmail.com"
            Dim password As String = "sw2xishere"
            Dim user As String = RandomString(6, 11)

            Dim postData As String = "email=" & email & "&password=" & password & "&username=" & user & "&first_name=" & "Sw2x is here"
            Dim tempCook As CookieContainer
            Dim encoding As New UTF8Encoding
            Dim bytedata As Byte() = encoding.GetBytes(postData)
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create("https://www.instagram.com/accounts/web_create_ajax/"), HttpWebRequest)
            request.Headers.Add("X-CSRFToken", "aBIjhglsmHjGwPzTakFcJjv8JA1RJbEn")
            request.ContentType = "application/x-www-form-urlencoded"
            request.Headers.Add("X-Instagram-AJAX", "1")
            request.Headers.Add("X-Requested-With", "XMLHttpRequest")
            request.Headers.Add("Cookie", "mid=WnHI3wALAAEIa76mzCBt0f7Dvapo; js_datr=JbBhWCXpCLhu_i0Hy89QBFIG; csrftoken=aBIjhglsmHjGwPzTakFcJjv8JA1RJbEn; ig_pr=1; ig_vw=958; ig_dru_dismiss=1485866364904; ig_aib_du=1487800189834; js_reg_ext_ref=http%3A%2F%2Fhelp.instagram.com; js_reg_fb_ref=https%3A%2F%2Fwww.facebook.com%2Fhelp%2Finstagram%2Fcontact%2F1652567838289083; js_reg_fb_gate=https%3A%2F%2Fwww.facebook.com%2Fhelp%2Finstagram%2F292478487812558; wd=1525x724; dpr=1.25")
            request.Method = "POST"
            request.Proxy = proxie

            request.KeepAlive = True
            request.CookieContainer = tempCook
            request.Referer = "https://www.instagram.com/"
            request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
            request.ContentLength = bytedata.Length
            Label3.Text = "Proxy: " & proxie.Address.ToString.Replace("http://", "").Replace("https://", "").Replace("/", "")

            Dim requestStream As Stream = request.GetRequestStream()
            requestStream.Write(bytedata, 0, bytedata.Length)

            requestStream.Close()
            Dim responseS As HttpWebResponse
            responseS = DirectCast(request.GetResponse(), HttpWebResponse)
            Dim Reader As New StreamReader(responseS.GetResponseStream())
            Dim thepage As String = Reader.ReadToEnd
            If thepage.Contains("Another account is using") Then



            Else

                '  Dim flag As Boolean = login(user, password, uuid, proxy)

                ' if flag Then
                ' MsgBox(flag)
                '  ReportSpam(GrabID(NsTextBox1.Text), proxy)
				' End If


                Dim file As System.IO.StreamWriter
                file = My.Computer.FileSystem.OpenTextFileWriter("Accounts.txt", True)
                file.WriteLine(user & ":" & password)
                file.Close()


                accounts += 1
                Label1.Text = "Registred: " & accounts




            End If



            Dim t As New Threading.Thread(AddressOf register)
            threadlist.Add(t)
            t.IsBackground = True
            t.Start()


        Catch ex As Exception
            '  MsgBox(ex.Message)
        End Try

    End Sub