Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
DestroyIcon уничтожает значок и освобождает память. Некоторые функции, которые работают со значком (иногда, но не обязательно) требуют, чтобы программы использовали эту функцию после использования значка. Проверяйте функции значка, чтобы определить, действительно ли значок должен быть уничтожен. Значок не может использоваться, если программа уничтожает его.
' Отобразим первый значок (индекс 0), хранимый в файле ' C:\Windows\notepad.exe на окне Form1. Значок должен быть уничтожен ' при завершении работы программы Dim hIcon As Long ' Описатель значка Dim retval As Long ' возвращаемое значение ' Извлекаем первый значок из файла hIcon = ExtractIcon(App.hInstance, "C:\Windows\notepad.exe", 0) If hIcon = 0 Then Debug.Print "Неудача при извлечении значка - прерываем выполнение" End Else ' Рисуем значок в координатах (100, 75) на Form1 retval = DrawIcon(Form1.hDC, 100, 75, hIcon) ' Хотя изображение значка все еще видимо, сам значок не используется. ' Поэтому мы уничтожаем его, чтобы освободить ресурсы retval = DestroyIcon(hIcon) End If