Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim web As New Net.WebClient
Dim text = web.DownloadString("WEBSITE")
Dim list = token("list")
Dim name = "Name: " & result("name").ToString
For Each item In token("result")("list")
Dim Name = "Name: " & list("name")
Next
End Sub
Dim web As New Net.WebClient
Dim text = web.DownloadString("WEB URL")
Dim token = Newtonsoft.Json.Linq.JToken.Parse(text)
Dim profile = token("Profile")
Dim country = "Country: " & profile("country").ToString
Dim content = "Content: " & profile("adContent").ToString
Dim accdate = "Date: " & profile("dateAccountCreated").ToString
Me.TextBox1.Text = String.Join(vbNewLine, {country, content, accdate})
For Each item In token("result")("list")