如何把icon对象存为ico文件（icon格式）

[QQRN]

如题……

[Montaque]

Dim bmp As New System.Drawing.Bitmap(PictureBox1.Image,
32,32)
'从PictureBox1.Image初始化Bitmap，设置保存为图片的大小，标准ico图由
32*32和16*16两种格式组成，此处为32*32，你也可以设置为16*16

Dim ico As System.Drawing.Icon = ico.FromHandle(bmp.GetHicon())
'用Bitmap的句柄，初始化icon，他是专门处理ico文件的类
Dim file As New System.IO.FileStream(SaveFileDialog1.FileName(), IO.FileMode.Create)'创建文件流
ico.Save(file)'保存为ico文件
file.Close()'关闭流

[Montaque]

调用icon的save方法就可以了。

[QQRN]

谢谢了，害我SAVE成PNG，吃力不讨好……