J2KCompressionRatio example for Visual Basic

    Dim IO As New LEADRasterIO
    ' compress a JPEG2000 file using 100:1 comp ratio
    IO.J2KSetDefaults
    IO.J2KCompressionControl = J2K_COMP_RATIO
    IO.J2KCompressionRatio = 100#
    IO.Save LEADRasterView1.Raster, "c:\temp\100_to_1.j2k", FILE_J2K, 0, 0, SAVE_OVERWRITE