主题：解析JSON求助

Dim json As String = ClipBoard.GetText
Dim jo As JObject = JObject.Parse(json)
output.show(jo.tostring)
Dim ja As JArray = jo("item-1527207237163")("value")
For i As Integer = 0 To ja.Count - 1
    Dim cjo As jobject = jobject.parse(ja(i).tostring)
    For Each ccjo As object In ja(i)
        msgbox(ja(i)(ccjo.name)("title").tostring)
        msgbox(ja(i)(ccjo.name)("value").tostring)
    Next
Next