Public ReadOnly Property Values() As ICollection Implements IDictionary.Values
    Get
        ' Return an array where each item is a value.
        Dim valueArray() As Object = New Object(ItemsInUse - 1) {}
        Dim n As Integer
        For n = 0 To ItemsInUse - 1
            valueArray(n) = items(n).Value
        Next n

        Return valueArray
    End Get
End Property

public ICollection Values
{
    get
    {
        // Return an array where each item is a value.
        Object[] values = new Object[ItemsInUse];
        for (Int32 n = 0; n < ItemsInUse; n++)
            values[n] = items[n].Value;
        return values;
    }
}

public:
    virtual property ICollection^ Values
    {
        ICollection^ get()
        {
            // Return an array where each item is a value.
            array<Object^>^ values = gcnew array<Object^>(itemsInUse);
            for (int i = 0; i < itemsInUse; i++)
            {
                values[i] = items[i]->Value;
            }
            return values;
        }
    }