J2KCompressionControl example for Visual Basic

    Dim IO As New LEADRasterIO
    ' compress a lossless file
    IO.J2KSetDefaults
    IO.J2KCompressionControl = J2K_COMP_LOSSLESS
    IO.Save LEADRasterView1.Raster, "c:\temp\lossless.j2k", FILE_J2K, 0, 0, SAVE_OVERWRITE