Imports System

Imports Newtonsoft.Json

Public Module Module1

​

    Public Sub Main()

​

        Dim cust As customer = New customer()

        cust.name = "Joe"

​

        Dim json As String = JsonConvert.SerializeObject(cust)

​

        Console.WriteLine(json)

​

    End Sub

    Public Class customer

​

        Public Property name as String       

​

        <JsonProperty("photoSrc")>

        Private ReadOnly Property defaultPhotoSrc As String

            Get

                Return photoSrc()

            End Get

        End Property

        Public ReadOnly Property photoSrc(Optional shape As String = Nothing) As String

            Get

                Dim srcString = "/Images/User.png"

                If shape = "square" Then

                    srcString = "/Images/UserSquare.png"

                End If

                Return srcString

            End Get

        End Property

​

    End Class

​

End Module