Dim p As WinForm.Painter = e.Form.Controls("Painter1")Dim g As Graphics = p.Graphicsg.DrawImage(getImage("1.jpg"),0,0,32,32)p.Repaint() p.Save(ProjectPath & "\Images\2.ico")
用上面的代码,保存的图片,不是ico格式的。