vb.net - シンプルな Newtonsoft.Json の例 VB.Net でのファイルの読み取り/データのループ

Question

Jsonファイルを開き、VB.Netを使用してJSon.Netを使用して値をループする簡単な例が欲しい

単純な Json は次のとおりです。

{
    root: [
        {
            "__type": "BannerElement",
            "Id": 1,
            "Title": "Politics",
            "Text": "Some Text",
            "ImageFile": "/Religion-in-Politics--DM1.1.jpg",
            "ReadMoreUrl": "http://google.com",
            "SortOrder": 0,
            "Disabled": false
        },
        {
            "__type": "BannerElement",
            "Id": 2,
            "Title": "God",
            "Text": "Some Text",
             "ImageFile": "/Religion-in-Politics--DM1.1.jpg",
            "ReadMoreUrl": "http://google.com",         
            "SortOrder": 1,
            "Disabled": false
        }
    ]
}

インターネット/グーグルで例が見つからないようです....

これが私がこれまでに持っているものです....

strJSonPath = Replace(Replace(String.Format("{0}/json/slides.js", ConfigurationManager.AppSettings("APPhysicalPath")), "\", "/"), "//", "/")
                Dim strJson As String = File.ReadAllText(strJSonPath)
                Dim jobj As JObject = JObject.Parse(strJson)
                Dim arrJArray As JArray = jobj("root")