LoadDS Example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestLoadDS ( )
   Dim nRet As Short
   'load a Data Set
   LEADDICOM1.EnableMethodErrors = False
   nRet = LEADDICOM1.LoadDS("d:\lead14\dist\images\dicom\image2.dic", 0)
   If (nRet <> LTDicomKernelLib.DicomErrorCodes.DICOM_SUCCESS) Then
      MessageBox.Show("Error " & CStr(nRet) & " loading file!")
   End If
   LEADDICOM1.EnableMethodErrors = True
End Sub