ImageList и ресурсы...

[Twister]

Доброго всем времени суток!

Возникла у меня потребность в пустой ImageList добавить программно несколько пустых картинок размером 16х16.

Вызов ImageList_SetImageCount по отношению к ImageList'у в VB не возымел должного действия, хотя в Делфях все отлично сработало.
От сюда первый вопрос:
1. Это мои кривые руки или VB действительно не даст просто так изменить кол-во элементов в ImageList'е?

Я решил добавлять элементы в ImageList в цикле. Но создать валидную пустую переменную типа IPictureDisp так и не смог (да и не долго мучался, честно говоря). От сюда второй вопрос:
2. Возможно ли создать валидную переменную типа IPictureDisp "на ровном месте", которая бы описывала пустую картинку?

Не опуская руки, я быстренько нарисовал в Microangelo пустую иконку 256х16х16 и засунул ее в ресурсы. Но после LoadResPicture(101, 1) иконка чудесным образом оказалась 16х32х32. Ну что за самодеятельность, блин? Приходится перед заполнением ImageList'а ручками указывать размерность элементов. Третий вопрос:
3. Как отучить VB от такой вот самодеятельности?

[tyomitch]

2. OleCreatePictureIndirect

[Twister]

Отлично. Даже в API-Guide есть пример. Не говоря о гугле. Спасибо.
А по поводу остальных вопросов?