vb.net convert bitmap to .ico file

by BenJones of vbf

form controls :
button
open file dialog
savefile dialog

Code:

Public Class Form1
    Private Sub BitmapToIcon16(ByVal BitmapFile As String, ByVal IconFile As String, ByVal TransColor As Color)
        'This little sniplet of code will convert a 16 color bitmap to a icon file.

        'Check that bitmap file is here.
        If Not System.IO.File.Exists(BitmapFile) Then
            MessageBox.Show("Bitmap File Not Found", "File Not Found", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Else
            'Load bitmap
            Dim bmp As Bitmap = Bitmap.FromFile(BitmapFile)
            'Set trans color.
            bmp.MakeTransparent(TransColor)
            'Convert bitmap to icon from bitmap handle
            Dim ico As Icon = Icon.FromHandle(bmp.GetHicon())
            'Create the file that we use for the icon.
            Dim sw As System.IO.StreamWriter = System.IO.File.CreateText(IconFile)
            'Save icon data to filename.
            ico.Save(sw.BaseStream)
            'Close file
            sw.Close()
            'Clear up
            ico.Dispose()
            bmp.Dispose()
            sw.Dispose()
        End If
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            'Make a 32x32 16 color icon from a 16 color bitmap with seleced tranparent color.
            MsgBox("input sized 32 * 32 16 color bitmap (image file)")
            OpenFileDialog1.ShowDialog()
            MsgBox("where would you like to save the icon file?")
            SaveFileDialog1.ShowDialog()
            BitmapToIcon16(OpenFileDialog1.FileName(), SaveFileDialog1.FileName() & ".ico", Color.Green)
        Catch ex As Exception
            MsgBox("input sized 32 * 32 16 color bitmap (image file)")
        End Try
        MsgBox("save completed")
    End Sub
End Class