Public Function check() As Object
        ServicePointManager.DefaultConnectionLimit = Integer.MaxValue
        Dim Weber As WebClient = New WebClient
        Dim Press As String = Weber.DownloadString("https://instacheck.cf/instacheck/check.php?user=" + TextBox2.Text)
        If Press.Contains("""error"":""{""code"":0"",""message"":""No Error""},""users"":[]""") Then
            ' اليوزر متاح
        End If
        Me.count += 1
        Label1.Text = count
        Dim Lodet As Thread = New Thread(AddressOf check)
        Lodet.Start()

    End Function