如何将图标句柄变成图片

[thomasz2]

已知一个图标的句柄（hIcon），如何将变成Picture对象。

我要最简短的方法。(!!)

而且不能用PictureBox控件中转，只能是内存中创建的Picture对象。

就是这种格式：
Dim Pic As Picture, hIcon As Long
Set Pic = IcotoPic(hIcon)

其中IcotoPic函数由各位来写

[thomasz2]

加油啊。

[thomasz2]

加油啊。