J2KCompressionControl example for Visual Basic

   ' compress a lossless file
   LEAD1.J2KCompressionControl = J2K_COMP_LOSSLESS
   LEAD1.Save "c:\temp\lossless.j2k", FILE_J2K, 0, 0, SAVE_OVERWRITE