Reusable NameValue Class

Partial Public Class Process

    Public Class MetaData

        Public Sub New()

        End Sub

        Private _name As String
        Public Property Name() As String
            Get
                Return _name
            End Get
            Set(ByVal value As String)
                _name = value
            End Set
        End Property

        Private _value As String
        Public Property Value() As String
            Get
                Return _value
            End Get
            Set(ByVal value As String)
                _value = value
            End Set
        End Property

    End Class

End Class

Partial Public Class Process

    Partial Public Class Document

        Public Class MetaData

            Public Sub New()

            End Sub

            Private _name As String
            Public Property Name() As String
                Get
                    Return _name
                End Get
                Set(ByVal value As String)
                    _name = value
                End Set
            End Property

            Private _value As String
            Public Property Value() As String
                Get
                    Return _value
                End Get
                Set(ByVal value As String)
                    _value = value
                End Set
            End Property

        End Class

    End Class

End Class


Partial Public Class Process

        Private metaDatas As New MetaDataCollection()

        Public Sub AddMetaData(ByVal metaData As MetaData)
            metaDatas.Add(metaData)
        End Sub

        Private NotInheritable Class MetaDataCollection
            Inherits CollectionBase

            Public Sub New()

            End Sub

            Default Public ReadOnly Property Item(ByVal index As Integer) As MetaData
                Get
                    Return CType(List.Item(index), MetaData)
                End Get
            End Property

            Public Sub Add(ByVal metaData As MetaData)
                List.Add(metaData)
            End Sub

            Public Sub Remove(ByVal index As Integer)
                If index > Count - 1 Or index < 0 Then
                    Console.WriteLine("Can't remove this item")
                Else
                    List.RemoveAt(index)
                End If
            End Sub

        End Class

End Class


Partial Public Class Process

    Partial Public Class Document

        Private metaDatas As New MetaDataCollection()

        Public Sub AddMetaData(ByVal metaData As MetaData)
            metaDatas.Add(metaData)
        End Sub

        Public Sub AddMetaData(ByVal name As String, ByVal value As String)
            metaDatas.Add(name, value)
        End Sub

        Private NotInheritable Class MetaDataCollection
            Inherits CollectionBase

            Public Sub New()

            End Sub

            Default Public ReadOnly Property Item(ByVal index As Integer) As MetaData
                Get
                    Return CType(List.Item(index), MetaData)
                End Get
            End Property

            Public Sub Add(ByVal metaData As MetaData)
                List.Add(metaData)
            End Sub

            Public Sub Remove(ByVal index As Integer)
                If index > Count - 1 Or index < 0 Then
                    Console.WriteLine("Can't remove this item")
                Else
                    List.RemoveAt(index)
                End If
            End Sub

        End Class

    End Class

End Class