Пишем такой код:
- Код: Выделить всё
Set Form1.Picture = LoadResPicture(101, vbResIcon)
Для удобства я замечу, что верхняя часть иконки представляет собой чередующиеся красные, синие и зеленые полоски.
Однако, VB рисует иконку размером 32x32!
Это хоршо заметно потому, что вместо трех чередующихся полосок получаются две: темно-красная и черная.
Сабж: что делать?