Public Class DicomEditableObject 
   Implements IComponent, ICustomTypeDescriptor, IDisposable 

Dim instance As DicomEditableObject

public class DicomEditableObject : IComponent, ICustomTypeDescriptor, IDisposable  

public ref class DicomEditableObject : public IComponent, ICustomTypeDescriptor, IDisposable  

<Test> _
Public Sub TestEditableObject()
   Dim dcmObject As DicomEditableObject = New DicomEditableObject()
   Dim ds As DicomDataSet = Nothing
   Dim dicomFileNameIn As String = LeadtoolsExamples.Common.ImagesPath.Path & "IMAGE2.dcm"

   DicomEngine.Startup()

   ds = New DicomDataSet()
   ds.Load(dicomFileNameIn, DicomDataSetLoadFlags.None)
      AddHandler dcmObject.BeforeAddElement, AddressOf dcmObject_BeforeAddElement
   dcmObject.DataSet = ds
   Console.WriteLine("Root Element Count: " & dcmObject.Elements.Count.ToString())

   '
   ' At this point the object can be assigned to a property grid.
   '
   DicomEngine.Shutdown()
End Sub

Private Sub dcmObject_BeforeAddElement(ByVal sender As Object, ByVal e As BeforeAddElementEventArgs)
   Console.WriteLine(e.Element.Name)
   Console.WriteLine(e.Element.DicomElement.VR.ToString())
End Sub

public void TestEditableObject()
{
    DicomEditableObject dcmObject = new DicomEditableObject();
    DicomDataSet ds = null;
    string dicomFileNameIn = LeadtoolsExamples.Common.ImagesPath.Path + "IMAGE2.dcm";

    DicomEngine.Startup();

    ds = new DicomDataSet();
    ds.Load(dicomFileNameIn, DicomDataSetLoadFlags.None);
    dcmObject.BeforeAddElement += new EventHandler<BeforeAddElementEventArgs>(dcmObject_BeforeAddElement);
    dcmObject.DataSet = ds;
    Console.WriteLine("Root Element Count: " + dcmObject.Elements.Count.ToString());

    //
    // At this point the object can be assigned to a property grid.
    //
    DicomEngine.Shutdown();
}

void dcmObject_BeforeAddElement(object sender, BeforeAddElementEventArgs e)
{
    Console.WriteLine(e.Element.Name);
    Console.WriteLine(e.Element.DicomElement.VR.ToString());
}