J2KROIControl example for Visual Basic

Private Sub TestProcBitmap()    
   DS_METAHEADER_ABSENT + DS_LITTLE_ENDIAN
   'insert the image into the element
   LEADDICOM1.Bitmap = LEADRasterView1.Raster.Bitmap
   LEADDICOM1.J2KOptions.J2KSetDefaults
   LEADDICOM1.J2KOptions.J2KCompressionControl = DICOM_J2K_COMP_RATIO
   LEADDICOM1.J2KOptions.J2KCompressionRatio = 100#
   LEADDICOM1.J2KOptions.J2KUseROI = True
   LEADDICOM1.J2KOptions.J2KROIControl = J2K_USEOPTION_RECT
   LEADDICOM1.J2KOptions.J2KROILeft = 200
   LEADDICOM1.J2KOptions.J2KROITop = 200
   LEADDICOM1.J2KOptions.J2KROIWidth = 400
   LEADDICOM1.J2KOptions.J2KROIHeight = 400
   LEADDICOM1.J2KOptions.J2KXTsiz = 100
   LEADDICOM1.J2KOptions.J2KYTsiz = 100
   'set the bitmap
   LEADDICOM1.SetBitmapValue DICOM_IMAGE_COMPRESSION_J2K_LOSSY, _
   DICOM_IMAGE_PHOTOMETRIC_MONOCHROME2, 0, 0, 0
End Sub