Dim json As String = "{'name':'李云龙','age':'36','card':{'bank':'工行','account':'123456'},'aa':['a','b']}"
Dim jo As JObject = JObject.Parse(json)
For Each it As object In jo
If typeof(it.value) Is JObject
Dim jo2 As JObject = it.value
For Each it2 As object In jo2
Output.Show(it2.key & "-" & it2.value)
Next
ElseIf typeof(it.value) Is jarray
For Each it2 As object In it.value
Output.Show(it2)
Next
Else
Output.Show(it.key & "-" & it.value)
End If
Next