SetBitmapValue example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
'This example uses the predefined variable "LEADRasterView1" of type "AxLEADRasterView" from "LEADTOOLS Toolkit".
Private Sub TestSetBitmapValue()
   Dim lCount As Integer
   Dim nRet As Short
   Dim IO As New LTRASTERIOLib.LEADRasterIO
   LEADDICOM1.EnableMethodErrors = False
   'move to the root element
   LEADDICOM1.MoveFirstElement(False)
   LEADDICOM1.MoveRootElement()
   'insert a new element for the Bitmap Value
   nRet = LEADDICOM1.FindFirstElement(LTDICLib.DicomDataSetTagConstants9.TAG_PIXEL_DATA, False)
   nRet = LEADDICOM1.DeleteElement()
   nRet = LEADDICOM1.InsertElement(False, LTDICLib.DicomDataSetTagConstants9.TAG_PIXEL_DATA, LTDICLib.DicomVRCodeConstants.VR_OB, False, 0)
   'load an image
   IO.Load(LEADRasterView1.Raster, "d:\lead14\dist\images\image1.cmp", 0, 1, 1)
   MessageBox.Show("Image loaded from File - Wait")
   'insert the image into the element
   LEADDICOM1.Bitmap = LEADRasterView1.Raster.Bitmap
   'set the bitmap
   nRet = LEADDICOM1.SetBitmapValue(LTDICLib.DicomImageCompressionConstants.DICOM_IMAGE_COMPRESSION_NONE, LTDICLib.DicomImagePhotometricConstants.DICOM_IMAGE_PHOTOMETRIC_RGB, 0, 0, 0)
   If (nRet <> 0) Then
      MessageBox.Show("Error")
      Exit Sub
   End If
   MessageBox.Show("Image set to Data Set - Wait")
   LEADDICOM1.Bitmap = 0
   'free the value
   MessageBox.Show("Image cleared from memory - Wait")
   'get the bitmap back
   If (nRet = 0) Then
      LEADDICOM1.GetBitmapValue(0, 0, LTDICLib.DicomColorOrderConstants.ORDER_RGB, 0)
      LEADRasterView1.Raster.Bitmap = LEADDICOM1.Bitmap
      LEADRasterView1.ForceRepaint()
   End If
   LEADDICOM1.EnableMethodErrors = True
   MessageBox.Show("Image loaded from Data Set - Wait")
End Sub