Как поместить на форму иконку, полученную через ExtractIcon?

[d_d_d]

Допустим есть такая мулька :

Private declare function Extracticon& (byVal чевото_там as long,byVal_ по_моему_путь as string,byVal номер as long)

не суть важно, главное принцип...

Далее
dim Hicon&
Hicon=Extracticon(0,"explorer.exe"0)

Как мне этот дескриптор запихать в PictureBox ????
Иными словами. как зная дискриптор изображения поместить его (изображение) в PictureBox или Image (не нарисовать на нем).
Помогите пожалуйста, спасите мои нервы.

[Cyrax]

Код: Выделить всё

Public Declare Function DrawIcon Lib "user32" Alias "DrawIcon" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long

Код: Выделить всё

Public Declare Function DrawIconEx Lib "user32" Alias "DrawIconEx" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long

и будет тебе счастье

вот только объясни. если ты нашел как извлеч значек, разве там рядом не было как его нарисовать на форме?