VB.Net/2D/Icon

Save an Image to Icon format

Imports System
Imports System.Windows.Forms
Imports System.Collections.Generic
Imports System.ruponentModel
Imports System.Drawing.Imaging
Imports System.Drawing
Public Class MainClass
   Shared Sub Main()
        Dim bm As New Bitmap(256, 256)
        " Draw on it.
        Dim gr As Graphics = Graphics.FromImage(bm)
        gr.Clear(Color.White)
        gr.DrawEllipse(Pens.Red, 0, 0, bm.Width - 1, bm.Height - 1)
        gr.DrawLine(Pens.Green, 0, 0, bm.Width - 1, bm.Height - 1)
        gr.DrawLine(Pens.Blue, bm.Width - 1, 0, 0, bm.Height - 1)
        " Save the result as a JPEG file.
        bm.Save("test.ico", ImageFormat.Icon)
   End Sub 
End Class