DeleteElement Example for Visual Basic

Private Sub DSDeleteElement_Click()
    Dim nRet As Integer
    LEADDICOM1.EnableMethodErrors = False
    LEADDICOM1.FindFirstElement TAG_STUDY_DATE, False
    nRet = LEADDICOM1.DeleteElement
    LEADDICOM1.EnableMethodErrors = True
    If (nRet <> 0) Then
        MsgBox "Error Deleting Element!"
    End If
End Sub