J2KSetDefaults example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestJ2KSetDefaults()
   Dim msg As String
   ' Display all the default JPEG2000 advanced options
   LEADDICOM1.J2KOptions.J2KSetDefaults()

   msg = msg & "J2KUseColorTransform = " & CStr(LEADDICOM1.J2KOptions.J2KUseColorTransform) & vbCrLf
   msg = msg & "J2KDerivedQuantization = " & CStr(LEADDICOM1.J2KOptions.J2KDerivedQuantization) & vbCrLf

   msg = msg & "J2KXOsiz = " & CStr(LEADDICOM1.J2KOptions.J2KXOsiz) & vbCrLf
   msg = msg & "J2KYOsiz = " & CStr(LEADDICOM1.J2KOptions.J2KXOsiz) & vbCrLf
   msg = msg & "J2KXTsiz = " & CStr(LEADDICOM1.J2KOptions.J2KXTsiz) & vbCrLf
   msg = msg & "J2KYTsiz = " & CStr(LEADDICOM1.J2KOptions.J2KYTsiz) & vbCrLf
   msg = msg & "J2KXTOsiz = " & CStr(LEADDICOM1.J2KOptionss.J2KXTOsiz) & vbCrLf
   msg = msg & "J2KYTOsiz = " & CStr(LEADDICOM1.J2KOptions.J2KYTOsiz) & vbCrLf

   msg = msg & "J2KDecompLevel = " & CStr(LEADDICOM1.J2KOptions.J2KDecompLevel) & vbCrLf
   msg = msg & "J2KProgressOrder = " & CStr(LEADDICOM1.J2KOptions.J2KProgressOrder) & vbCrLf
   msg = msg & "J2KCodBlockWidth = " & CStr(LEADDICOM1.J2KOptions.J2KCodBlockWidth) & vbCrLf
   msg = msg & "J2KCodBlockHeight = " & CStr(LEADDICOM1.J2KOptions.J2KCodBlockHeight) & vbCrLf

   msg = msg & "J2KCBS_SelectiveACBypass = " & CStr(LEADDICOM1.J2KOptions.J2KCBS_SelectiveACBypass) & vbCrLf
   msg = msg & "J2KCBS_ResetContextOnBoundaries = " & CStr(LEADDICOM1.J2KOptions.J2KCBS_ResetContextOnBoundaries) & vbCrLf
   msg = msg & "J2KCBS_TerminationOnEachPass = " & CStr(LEADDICOM1.J2KOptions.J2KCBS_TerminationOnEachPass) & vbCrLf
   msg = msg & "J2KCBS_VerticallyCausalContext = " & CStr(LEADDICOM1.J2KOptions.J2KCBS_VerticallyCausalContext) & vbCrLf
   msg = msg & "J2KCBS_PredictableTermination = " & CStr(LEADDICOM1.J2KOptions.J2KCBS_PredictableTermination) & vbCrLf
   msg = msg & "J2KCBS_ErrorResilienceSymbol = " & CStr(LEADDICOM1.J2KOptions.J2KCBS_ErrorResilienceSymbol) & vbCrLf

   msg = msg & "J2KGuardBits = " & CStr(LEADDICOM1.J2KOptions.J2KGuardBits) & vbCrLf
   msg = msg & "J2KDerivedBaseMantissa = " & CStr(LEADDICOM1.J2KOptions.J2KDerivedBaseMantissa) & vbCrLf
   msg = msg & "J2KDerivedBaseExponent = " & CStr(LEADDICOM1.J2KOptions.J2KDerivedBaseExponent) & vbCrLf

   msg = msg & "J2KUseSOPMarker = " & CStr(LEADDICOM1.J2KOptions.J2KUseSOPMarker) & vbCrLf
   msg = msg & "J2KUseEPHMarker = " & CStr(LEADDICOM1.J2KOptions.J2KUseEPHMarker) & vbCrLf

   MessageBox.Show(msg)

End Sub