Sorting a JSON Array?

Is there a way to sort a JSON Array based on a value of each item in the array?

For example, I want to sort this array by Child(i).Value(“value”).StringValue.

{ "items" : [ { "id" : 52198854, "value" : "Z-item should be the last item", "required" : false }, { "id" : 9622097, "value" : "Alpha blending should be the first item", "required" : false }, { "id" : 465, "value" : "This should be somewhere in the middle", "required" : false } ] }

[code]Dim json As xojo.Core.Dictionary = Xojo.Data.ParseJSON( TheJSONString )

Dim keys() As Text
Dim items() As Auto = json.Value(“items”)

For Each element As xojo.Core.Dictionary In items
keys.Append(element.Value(“value”))
Next

keys.SortWith(items)[/code]