質問です。

アイコンを作成するプログラムを作っているのですが、
SavePicture ImageList1.ListImages(1).ExtractIcon, "hoge.ico"
とやって保存するとどうしても汚くなってしまいます。
Form1.MouseIcon = ImageList1.ListImages(1).ExtractIcon
は問題無く美しいアイコンになるんですけど、、
どうすれば美しくアイコンを保存できるのでしょうか?

VisualBasic6.0です。