InsertElement Example for Visual Basic

Private Sub DSInsertElement_Click()
    Dim nRet As Integer
    
    LEADDICOM1.EnableMethodErrors = False
    'insert the new element
    LEADDICOM1.FindTag TAG_DISCHARGE_DATE
    nRet = LEADDICOM1.InsertElement (False, TAG_DISCHARGE_DATE, LEADDICOM1.CurrentTag.VR, False, ELEMENT_INDEX_MAX)
    If (nRet <> 0) Then
        MsgBox "Error Inserting Element"
    End If
    LEADDICOM1.EnableMethodErrors = True
End Sub