ChangeTransferSyntax Example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestChangeTransferSyntax ()
   Const UID_EXPLICIT_VR_BIG_ENDIAN As String = "1.2.840.10008.1.2.2" ' Explicit VR Big Endian
   ' Load a Data Set
   If LEADDICOM1.LoadDS("d:\lead14\dist\images\dicom\image2.dic", 0) = LTDicomKernelLib.DicomErrorCodes.DICOM_SUCCESS Then
      ' Change the Transfer Syntax to Explicit VR Big Endian
      LEADDICOM1.ChangeTransferSyntax(UID_EXPLICIT_VR_BIG_ENDIAN, 0, 0)

     ' Save the new Data Set
      LEADDICOM1.SaveDS("d:\temp\Temp.dic", 0)
   End If
End Sub