Visual Basic 6.0 Requires Chilkat v11.4.0+

Example: JsonObject.NewObjectOf method

Demonstrates the NewObjectOf method. Visual Basic 6.0

Dim success As Long
success = 0

Dim car As String
car = "{""make"":""Toyota"",""model"":""Camry"",""year"":2022,""color"":""silver"",""engine"":{""type"":""inline-4"",""fuel"":""gasoline"",""horsepower"":203},""features"":[""bluetooth"",""backup camera"",""adaptive cruise control"",""lane assist""],""isElectric"":false}"

Dim json As New ChilkatJsonObject

success = json.UpdateString("test","abc")

success = json.NewObjectOf("car",car)
If (success = 0) Then
    Debug.Print json.LastErrorText
    Exit Sub
End If

json.EmitCompact = 0
Debug.Print json.Emit()

'  Result:

'  {
'    "test": "abc",
'    "car": {
'      "make": "Toyota",
'      "model": "Camry",
'      "year": 2022,
'      "color": "silver",
'      "engine": {
'        "type": "inline-4",
'        "fuel": "gasoline",
'        "horsepower": 203
'      },
'      "features": [
'        "bluetooth",
'        "backup camera",
'        "adaptive cruise control",
'        "lane assist"
'      ],
'      "isElectric": false
'    }
'  }