Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
DeleteObject удаляет объект после завершения использования этого объекта программой. Объекты включают в себя картинки, кисти, шрифты, палитру, перо и регионы. Удаляя объект, вы освобождаете системные ресуры компьютера.
В успешном случае функция возвращает ненулевое значение, в случае ошибки возвращается 0 (Для получения кода ошибки используйте GetLastError)
смотри пример функции CreateSolidBrush, а также пример icon.zip