Dim quality As Integer
        Dim scale As Single = 1.0
        Dim resolution As Integer = -1
        Dim ic As New ImageConverter
 
        ic.ImagePath = "C:\CD1b\Test\zmachine.bmp"
        ic.ConvertPath1 = "C:\CD1b\Test\"
        ic.ImageType = ImageConverter.enumImageTypes.Jpeg
        ic.imgheight = 480 * scale
        ic.imgwidth = 640 * scale
        ic.resolution = resolution
 
        For quality = 10 To 100 Step 10
            ic.Quality = quality
            ic.ImageConvertName = "zmachineQual" + quality.ToString() + ".jpg"
            ic.ConvertImage()
        Next