InsertDS Example for Visual Basic

    'find the first PATIENT KEY, copy it to a new
    'DS, and then save it to a file
    LEADDICOM1.FindFirstKey "PATIENT", False
    LEADDICOM2.ResetDS
    LEADDICOM2.InsertDS LEADDICOM1.hDicomDS, LEADDICOM1.CurrentElement.hElement
    LEADDICOM2.SaveDS "d:\temp\save.dic", 0