Object Properties

Public Class Test

    Public Sub New()

        Dim doc As New Process.Document()
        doc.Source.Type = "URL"
        doc.Source.Data = "http://myOtherDomain/MyOtherPage.htm"

        Dim p As New Process()
        p.Documents.Add(doc)

    End Sub

End Class


Public Class Process

    Public Documents As New DocumentCollection()

    Public Class Document

        Public Source As New DocumentSource()

        Public Class DocumentSource

            Private _type As String = "URL"
            Public Property Type() As String
                Get
                    Return _type
                End Get
                Set(ByVal value As String)
                    _type = value
                End Set
            End Property

            Private _data As String = "http://www.mydomain/Mypage.html"
            Public Property Data() As String
                Get
                    Return _data
                End Get
                Set(ByVal value As String)
                    _data = value
                End Set
            End Property

        End Class

    End Class

    NotInheritable Class DocumentCollection
        Inherits CollectionBase

        Public Sub Add(ByVal document As Document)
            List.Add(document)
        End Sub

    End Class

End Class