array response in web service

    Public Function getContentItems(ByVal timestamps As String) As ContentItems
        Dim CIL As ContentItems = New ContentItems
        Dim r1 As sistem = New sistem
        Dim c1 As content = New content
        Dim c2 As content = New content
        Dim c3 As content = New content

        r1.svc_id = "svcid1"
        r1.svc_trx_id = "101"
        r1.error_code = "0000"
        r1.error_desc = "no error"
        r1.time_stamp = "45678"

        c1.type = "image11"
        c1.title = "title1"
        c1.description = "description1"
        c1.url = "url1"

        c2.type = "image"
        c2.title = "title2"
        c2.description = "description2"
        c2.url = "url2"

        c3.type = "image"
        c3.title = "title3"
        c3.description = "description3"
        c3.url = "url3"

        CIL.system1 = r1
        CIL.content(0) = c1
        CIL.content(1) = c2
        CIL.content(2) = c3
        Return CType(CIL, ContentItems)

    End Function
End Class

Partial Public Class ContentItems

    Private systemField As sistem
    Private contentField() As content

    _
    Public Property system1() As sistem
        Get
            Return Me.systemField
        End Get
        Set(ByVal value As sistem)
            Me.systemField = value
        End Set
    End Property

    _
    Public Property content() As content()
        Get
            Return Me.contentField
        End Get
        Set(ByVal value As content())
            Me.contentField = value
        End Set
    End Property
End Class

Public Class content
    Private _type As String
    Private _title As String
    Private _description As String
    Private _url As String

    Public Property type() As String
        Get
            Return _type
        End Get
        Set(ByVal value As String)
            _type = value
        End Set
    End Property

    Public Property title() As String
        Get
            Return _title
        End Get
        Set(ByVal value As String)
            _title = value
        End Set
    End Property

    Public Property description() As String
        Get
            Return _description
        End Get
        Set(ByVal value As String)
            _description = value
        End Set
    End Property

    Public Property url() As String
        Get
            Return _url
        End Get
        Set(ByVal value As String)
            _url = value
        End Set
    End Property

End Class

Public Class sistem
    Private _svc_id As String
    Private _svc_trx_id As String
    Private _error_code As String
    Private _error_desc As String
    Private _time_stamp As String

    Public Property svc_id() As String
        Get
            Return _svc_id
        End Get
        Set(ByVal value As String)
            _svc_id = value
        End Set
    End Property

    Public Property svc_trx_id() As String
        Get
            Return _svc_trx_id
        End Get
        Set(ByVal value As String)
            _svc_trx_id = value
        End Set
    End Property

    Public Property error_code() As String
        Get
            Return _error_code
        End Get
        Set(ByVal value As String)
            _error_code = value
        End Set
    End Property

    Public Property error_desc() As String
        Get
            Return _error_desc
        End Get
        Set(ByVal value As String)
            _error_desc = value
        End Set
    End Property

    Public Property time_stamp() As String
        Get
            Return _time_stamp
        End Get
        Set(ByVal value As String)
            _time_stamp = value
        End Set
    End Property

End Class

Public Class VBArray
    Private _lbound As Integer
    Private _int() As Integer

    Public Sub New(ByVal LBound As Integer, ByVal UBound As Integer)
        Me.ReDim(LBound, UBound)
    End Sub

    Public Sub [ReDim](ByVal LBound As Integer, ByVal UBound As Integer)
        _lbound = LBound
        ReDim _int(UBound - LBound + 1)
    End Sub

    Default Public Property Item(ByVal Index As Integer) As Integer
        Get
            Return _int(Index - _lbound)
        End Get
        Set(ByVal Value As Integer)
            _int(Index - _lbound) = Value
        End Set
    End Property

    Public Function ToArray() As Integer()
        Return _int
    End Function

    Private _content As content

    Public Property content() As content
        Get
            Return _content
        End Get
        Set(ByVal value As content)
            _content = value
        End Set
    End Property

End Class