کتابخونه آپدیت شد عزیز. متد اضافه شده. تبدیل مپ به جیسون ابجکت.
نحوه استفاده.
Dim m As Map
m.Initialize
m.Put("key1","value1")
m.Put("key2","value2")
m.Put("key3","value3")
m.Put("key4","value4")
Dim pr As PersianJSONOBject
Dim prj2 As PersianJSONOBject=pr.mapToObject(m)
Label1.Text= prj2.toString