testers needed

[Cander]

anyone want to test out my image conversion class? So far you can set quality and image rotation for jpegs and can convert any bitmap based image to bmp, jpg, gif, tiff, or png.

any errors/problems/suggestions, please post here..here is the code with a sample sub main module you can use as an example usage..compile this using vbc image.vb /r:system.drawing.dll

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.Jpeg
		tst.Transformation = tst.Transformation.Rotate90
		tst.Quality = 100
		tst.ConvertImage()
	End Sub
End Module

Public Class ImageConverter
	Public Enum enumImageTypes
		Bitmap = 0
		Jpeg = 1
		Gif = 2
		Tiff = 3
		Png = 4
	End Enum
	
	Public Enum enumCompression
		CCITT3 = &H00000003
		CCITT4 = &H0000004
		LZW = &H0000002
		None = &H0000006
		Rle = &H0000005
	End Enum
	
	Public Enum enumGifVersion
		Gif87 = &H0000009
		Gif89 = &H000000A
	End Enum
	
	Public Enum enumTransformation
		FlipHorizontal = &H0000010
		FlipVertical = &H0000011
		Rotate180 = &H000000E
		Rotate270 = &H000000F
		Rotate90 = &H000000D
	End Enum
	
	Public Enum enumRenderMethod
		NonProgressive = &H000000C
		Progressive = &H000000B
	End Enum
	
	Public Enum enumScanMethod
		Interlaced = &H0000007
		NonInterlaced = &H0000008
	End Enum
	
	Public ImagePath As String
	Public ImageType As enumImageTypes
	Public Quality As Integer
	Public Transformation As enumTransformation
	
	Public Sub ConvertImage()
		Dim imgExt As String
		Dim newBitmap As Bitmap = New Bitmap(ImagePath)
		Dim imgCodecs() As ImageCodecInfo  = ImageCodecInfo.GetImageEncoders()		
		' Set quality Parameter for the Jpeg codec
		Dim imgParams As EncoderParameters = New EncoderParameters(2)
		
		Dim imgQuality As EncoderParameter = New EncoderParameter(System.Drawing.Imaging.Encoder.Quality, Quality)	
		' Set quality
		imgParams.Param(0) = imgQuality
		
		Dim imgTransform As EncoderParameter = New EncoderParameter(Encoder.Transformation, Convert.ToInt64(Transformation))
		imgParams.Param(1) = imgTransform
		
		'Get file extension of codec
		imgExt = imgCodecs(ImageType).FilenameExtension
		imgExt = imgext.SubString(1, 4)' the extension comes back as *.gif, so we cut out the *
		
		' Save the image by removing the previous extension, add the new, set the codec, and set parameters
		' Image is saved to same locattion as original
		newBitmap.Save(ImagePath.SubString(0, ImagePath.Length - 4) + imgExt, imgCodecs(ImageType), imgParams)
		' Now we need to reopen the new file and resve to have parameters take affect
		newBitmap = New Bitmap(ImagePath.SubString(0, ImagePath.Length - 4) + imgExt)
		newBitmap.Save(ImagePath.SubString(0, ImagePath.Length - 4) + imgExt, imgCodecs(ImageType), imgParams)
		newBitmap.Dispose()
	End Sub
End Class