Здравствуйте dandreev, Вы писали:

D>Спасибо, с этим разобрался. Но теперь другая проблема.
D>для конструкции for each завел метод _NewEnum, имплементировал IEnumVARIANT.
D>Но при вызове из VB for each type in list выводится сообщение RuntimeError 13 type mismatch

D>Может я что то упустил, и кроме имплементации _NewEnum (DISPID_NEWENUM) требуеттся еще какие нибудь действия чтобы заработал for each?

Посмотри статью на RSDN Создание COM-коллекций

Автор(ы): Владислав Чистяков

Ничего сложного там нет, но если будут вопросы, то лучше задать новым сообщением. Добавляй только код (сколько нужно и с форматированием).