Public Class MainClass
Public Shared Sub Main()
ConvertImage("sample.gif", System.Drawing.Imaging.ImageFormat.Bmp, "new.bmp")
End Sub
Public Shared Sub ConvertImage(ByVal Filename As String, ByVal DesiredFormat As System.Drawing.Imaging.ImageFormat, ByVal NewFilename As String)
Try
Dim imgFile As System.Drawing.Image = System.Drawing.Image.FromFile(Filename)
imgFile.Save(NewFilename, DesiredFormat)
Catch ex As Exception
Throw ex
End Try
End Sub
End Class
|