Imports Newtonsoft.Json.Linq
" ""first"": ""/users/4061973/pictures?access_token=&page=1""," +
" ""last"": ""/users/4061973/pictures?access_token=&page=1""" +
" ""uri"": ""/users/4061973/pictures/32598345""," +
" ""type"": ""custom""," +
" ""link"": ""https://i.vimeocdn.com/portrait/32598345_30x30""" +
" ""link"": ""https://i.vimeocdn.com/portrait/32598345_72x72""" +
" ""link"": ""https://i.vimeocdn.com/portrait/32598345_75x75""" +
" ""link"": ""https://i.vimeocdn.com/portrait/32598345_100x100""" +
" ""link"": ""https://i.vimeocdn.com/portrait/32598345_144x144""" +
" ""link"": ""https://i.vimeocdn.com/portrait/32598345_216x216""" +
" ""link"": ""https://i.vimeocdn.com/portrait/32598345_288x288""" +
" ""link"": ""https://i.vimeocdn.com/portrait/32598345_300x300""" +
" ""link"": ""https://i.vimeocdn.com/portrait/32598345_360x360""" +
" ""resource_key"": """"," +
" ""default_picture"": false" +
Dim links = JObject.Parse(json).SelectTokens("..link").Select(Function(t) CStr(t)).ToList()
Console.WriteLine(String.Join(Environment.NewLine, links))