Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click Dim dtTICKET As New DataTable dtTICKET.Columns.Add(“Title”, GetType(String)) dtTICKET.Columns.Add(“Queue”, GetType(String)) dtTICKET.Rows.Add(“New Updates”, “Updates”) ‘dtTICKET.Rows.Add(“Lost connection”, “Network”) Dim dtJSON As New DataTable dtJSON.Columns.Add(“UserLogin”, GetType(String)) dtJSON.Columns.Add(“Password”, GetType(String)) dtJSON.Columns.Add(“Ticket”, GetType(DataTable)) dtJSON.Rows.Add(“[email protected]”, “pwd”, dtTICKET) json = JToken.FromObject(dtJSON).ToString() End Sub executing this code results in [ { “UserLogin”: “[email protected]”, “Password”: “pwd”, […]