SaveDS Example for Visual Basic

Dim nRet As Integer

'save a Data Set
LEADDICOM1.EnableMethodErrors = False
MSCommDlg1.Filter = "DICOM Data Set|*.dic"
MSCommDlg1.ShowSave
If (MSCommDlg1.filename <> "") Then
    nRet = LEADDICOM1.SaveDS(MSCommDlg1.filename, 0)
    If (nRet <> DICOM_SUCCESS) Then
        MsgBox "Error " & CStr(nRet) & " saving file!"
    End If
End If

LEADDICOM1.EnableMethodErrors = True