Здравствуйте Victor387, Вы писали:

V>Вы пробовали свой пример? нет! А MSDN глядели? я незнаю Потому что
V>Set ListView1.Object.Icons = ImageList1
V>Неработает. Run-time error 35610.
V>Также не работает и следующий код
V>Set ListView1.Icons = ImageList1
V>та же ошибка, проверял, Но именно такой пример дан в MSDN.

Ну, не проверял, ну, не дописал для всех ActiveX свойство Object.

Вот это устроит? Тут идея важна. В Access есть обёртка над объектом, у неё есть свойство Object, который и является тем объектом, для которого ты пишешь ActiveX функциональность.

Private Sub ListView1_Enter()
    ImageList1.Object.ListImages.Add , , LoadPicture("C:\Test.ico")
    Set ListView1.Object.Icons = ImageList1.Object
    ListView1.Object.ListItems.Add , , "aaa", 1
End Sub

Не сомневайся, теперь проверил — работает и отображает.