Добавить иконки к библиотеке ActiveX в КОМПАСе 18.1

[ainis]

На рисунке скомпилированная и подключенная библиотека Step1 из примеров КОМПАСа 18.1.

Хотелось бы подключить иконки к ее командам.
Насколько я понял, нужно использовать функцию ExternalGetImage:

Код Выделить Развернуть

Public Function ExternalGetImage(ByVal command As Integer, enableDelete As Integer) As OLE_HANDLE

Select Case command

Case 1

ExternalGetImage = Image1.Picture.Handle

Case 2

ExternalGetImage = Image2.Picture.Handle

Case 3

ExternalGetImage = Image3.Picture.Handle

Case 4

ExternalGetImage = Image4.Picture.Handle

Case Else

ExternalGetImage = Image5.Picture.Handle

End Select

enableDelete = FALSE

End Function


Примеров ее применения для Visual Basic.NET не нашел. Буду благодарен за любую помощь.

[Дмитрий22]

Здесь писал
https://forum.ascon.ru/index.php?topic=33941.msg269059#msg269059