DeleteIOD Example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestDeleteIOD()

   LEADDICOM1.EnableMethodErrors = True
   On Error GoTo DELETEIODERROR
   LEADDICOM1.MoveFirstIOD(False)
   LEADDICOM1.DeleteIOD()
   Exit Sub

DELETEIODERROR:
   MessageBox.Show("Error")

End Sub