CodePlex Issue #3740 Plain Text Attachments

test.vb

Imports System.Collections.Generic

Public Class Test
    Dim _data As Dictionary(Of String, String) = New Dictionary(Of String, String)

    Public ReadOnly Property Data() As String()
        Get
            Dim l As List(Of String)
            l = New List(Of String)(_data.Keys)
            Return l.ToArray()
        End Get
    End Property

    Public ReadOnly Property Data(ByVal index As String) As String
        Get
            Return _data(index)
        End Get
    End Property
End Class