Imports Leadtools
Imports Leadtools.Annotations
Imports Leadtools.Codecs
Imports Leadtools.WinForms
Imports Leadtools.Drawing
Public Sub AnnObject_Dispose(ByVal container As AnnContainer)
Do While container.Objects.Count > 0
Dim obj As AnnObject = container.Objects(0)
container.Objects.RemoveAt(0)
obj.Dispose()
Loop
End Sub
using Leadtools;
using Leadtools.Annotations;
using Leadtools.Codecs;
using Leadtools.WinForms;
using Leadtools.Drawing;
public void AnnObject_Dispose(AnnContainer container)
{
while(container.Objects.Count > 0)
{
AnnObject obj = container.Objects[0];
container.Objects.RemoveAt(0);
obj.Dispose();
}
}