Imports Newtonsoft.Json

Public Class cTEST
    Public Property Field1 As String
    Public Property Field2 As String

    ' Public Property array As cTEST_array()


    Public Property array As New List(Of cTEST_array) 'With {.id = Field1}

    '<JsonProperty("cTEST_varray")>
    Public Structure cTEST_array
        'Public Property id As Integer
        Dim Field1 As String
        Dim Field2 As String
    End Structure


    '    Public Property num Acces As String
    'sdf

    'Public Enum AccesMode
    '    VIEWONLY
    '    SHAREDACCESS
    '    EXCLUSIVE
    '    'PRIVATE
    'End Enum
End Class