J2KSetDefaults example for Visual Basic

   Dim msg$
   
   LEAD1.UnlockSupport L_SUPPORT_J2K, L_KEY_J2K
   
   ' Display all the default JPEG2000 advanced options
   LEAD1.J2KSetDefaults
   
   msg$ = msg$ + "J2KUseColorTransform = " + CStr(LEAD1.J2KUseColorTransform) + vbCrLf
   msg$ = msg$ + "J2KDerivedQuantization = " + CStr(LEAD1.J2KDerivedQuantization) + vbCrLf
                
   msg$ = msg$ + "J2KXOsiz = " + CStr(LEAD1.J2KXOsiz) + vbCrLf
   msg$ = msg$ + "J2KYOsiz = " + CStr(LEAD1.J2KYOsiz) + vbCrLf
   msg$ = msg$ + "J2KXTsiz = " + CStr(LEAD1.J2KXTsiz) + vbCrLf
   msg$ = msg$ + "J2KYTsiz = " + CStr(LEAD1.J2KYTsiz) + vbCrLf
   msg$ = msg$ + "J2KXTOsiz = " + CStr(LEAD1.J2KXTOsiz) + vbCrLf
   msg$ = msg$ + "J2KYTOsiz = " + CStr(LEAD1.J2KYTOsiz) + vbCrLf
                
   msg$ = msg$ + "J2KDecompLevel = " + CStr(LEAD1.J2KDecompLevel) + vbCrLf
   msg$ = msg$ + "J2KProgressOrder = " + CStr(LEAD1.J2KProgressOrder) + vbCrLf
   msg$ = msg$ + "J2KCodBlockWidth = " + CStr(LEAD1.J2KCodBlockWidth) + vbCrLf
   msg$ = msg$ + "J2KCodBlockHeight = " + CStr(LEAD1.J2KCodBlockHeight) + vbCrLf
                
   msg$ = msg$ + "J2KCBS_SelectiveACBypass = " + CStr(LEAD1.J2KCBS_SelectiveACBypass) + vbCrLf
   msg$ = msg$ + "J2KCBS_ResetContextOnBoundaries = " + CStr(LEAD1.J2KCBS_ResetContextOnBoundaries) + vbCrLf
   msg$ = msg$ + "J2KCBS_TerminationOnEachPass = " + CStr(LEAD1.J2KCBS_TerminationOnEachPass) + vbCrLf
   msg$ = msg$ + "J2KCBS_VerticallyCausalContext = " + CStr(LEAD1.J2KCBS_VerticallyCausalContext) + vbCrLf
   msg$ = msg$ + "J2KCBS_PredictableTermination = " + CStr(LEAD1.J2KCBS_PredictableTermination) + vbCrLf
   msg$ = msg$ + "J2KCBS_ErrorResilienceSymbol = " + CStr(LEAD1.J2KCBS_ErrorResilienceSymbol) + vbCrLf
                
   msg$ = msg$ + "J2KGuardBits = " + CStr(LEAD1.J2KGuardBits) + vbCrLf
   msg$ = msg$ + "J2KDerivedBaseMantissa = " + CStr(LEAD1.J2KDerivedBaseMantissa) + vbCrLf
   msg$ = msg$ + "J2KDerivedBaseExponent = " + CStr(LEAD1.J2KDerivedBaseExponent) + vbCrLf

   msg$ = msg$ + "J2KUseSOPMarker = " + CStr(LEAD1.J2KUseSOPMarker) + vbCrLf
   msg$ = msg$ + "J2KUseEPHMarker = " + CStr(LEAD1.J2KUseEPHMarker) + vbCrLf
   
   MsgBox msg$