Declare Function CreateIconIndirect Lib "user32" (picoinfo As ICONINFO) As Long
CreateIconIndirect создает новый значок или курсор из структуры ICONINFO. Когда значок станет ненужным, то удалите его с помощью DestroyIcon для освобождения ресурсов системы.
В успешном случае возвращается описатель созданного значка или курсора. В случае ошибки возвращается 0 (используйте GetLastError для получения кода ошибки).
Смотри пример icon.zip