did you try,
SavePicture Picture1.Image, "C:\Icon1.ico"