Option Strict On

​

Imports System

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Public Module Module1

    Public Sub Main()

        Dim anonymousObject = New With { Key .full_name = "...", .mobile = "867-5309", .remark = "Jenny?", .group_id = 1, .DateAdded = DateTime.Now }

        Dim jsonObject = JObject.FromObject(anonymousObject)

        Console.WriteLine(jsonObject.ToString())

    End Sub

End Module