■

デフォルトプロパティ

public class StringList
    dim ObjectList as new List(Of String)

    default public property Item(byval index as integer) as string
        get
            return ObjectList(index)
        end get
        set(byval value as string)
            ObjectList(index) = value
        end set
    end property
end class