LoadDS Example for Visual Basic

Dim nRet As Integer

'load a Data Set
LEADDICOM1.EnableMethodErrors = False
nRet = LEADDICOM1.LoadDS ("d:\lead14\dist\images\dicom\image2.dic", 0)
If (nRet <> DICOM_SUCCESS) Then
    MsgBox "Error " & CStr(nRet) & " loading file!"
End If
LEADDICOM1.EnableMethodErrors = True