hi LaVolpe,
I tried your example with my code but i get an exception invalid property value

What's wrong ?
Code:
 Dim tmpPic As StdPicture
    Set tmpPic = HandleToStdPicture(hIcon, vbPicTypeIcon)
    SavePicture tmpPic, [path\filename]
Thanks !