Загрузка иконок через LoadPicture - VB

Формулировка задачи:

Приветствую Такой вопрос... Есть иконка, если быть точнее - шар. Одним словом - цвета используются нестандартные, но их число менее 256. Если ее грузить в дизайне, то все ок - в хедере формы она замечательно видна. Но стоит ее грузануть а рантайме при помощи LoadPicture - получим неправильно обработанный файл (судя по присутствующим там цветам - идет просмотр по 15 цветной палитре, прозрачный цвет тоже не работает). Так вот, как выйти из положения, если иконку необходимо менять в рантайме?

Решение задачи: «Загрузка иконок через LoadPicture»

textual
                            Листинг программы 
                        

                            Public Declare Function SendMessage Lib 'user32.dll' Alias 'SendMessageA' ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long
Public Type TBBUTTON
    iBitmap As Long
    idCommand As Long
    fsState As Byte
    fsStyle As Byte
    bReserved1 As Byte
    bReserved2 As Byte
    dwData As Long
    iString As Long
End Type
' ...
Dim myButton As TBBUTTON, retVal As Long
retVal = SendMessage(toolbarHwnd, TB_INSERTBUTTON, 0, ByVal myButton)
                        