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


PA>Например так:

PA>[vb]

Do While IconCount > IconIndex
hIcon = ExtractIcon(0, IconStorage, IconIndex)
Dim i As Icon = System.Drawing.Icon.FromHandle(hIcon)
IconsCollection.Images.Add(i)
IconIndex += 1
Loop

Как сие понимать: hIcon — integer, а Icon = System.Drawing.Icon.FromHandle(hIcon) требует hIcon как IntPtr.
Я по сути сделал то же, но значение hIcon не принимается функцией FromHandle.

Дуже вдячний!