VB Code:
Imports System
Imports System.Drawing
Imports System.Drawing.Imaging
Module App
Sub Main()
Dim tst As New ImageConverter()
'tst.ImagePath = "c:\ufr3.bmp"
'tst.ImageType = tst.ImageType.Tiff
'tst.Transformation = tst.Transformation.Rotate90
'tst.Quality = 100
tst.ConvertImage()
End Sub
End Module
Public Class ImageConverter
Public Sub ConvertImage()
Dim newBitmap As Bitmap = New Bitmap("c:\1.jpg")
' Image is saved to same locattion as original
newBitmap.Save("c:\myicon.bmp", ImageFormat.Bmp)
newBitmap.Dispose()
End Sub
End Class