Private Sub CloneAndAdd(annotationCollection As Vintasoft.Imaging.Annotation.AnnotationDataCollection, index As Integer)
                ' clone annotation at specified index
                Dim clonedAnnotation As Vintasoft.Imaging.Annotation.AnnotationData = DirectCast(annotationCollection(index).Clone(), Vintasoft.Imaging.Annotation.AnnotationData)
                ' add cloned annotation to the end of the collection
                annotationCollection.Add(clonedAnnotation)
            End Sub

void CloneAndAdd(Vintasoft.Imaging.Annotation.AnnotationDataCollection annotationCollection, int index)
            {
                // clone annotation at specified index
                Vintasoft.Imaging.Annotation.AnnotationData clonedAnnotation = 
                    (Vintasoft.Imaging.Annotation.AnnotationData)annotationCollection[index].Clone();
                // add cloned annotation to the end of the collection
                annotationCollection.Add(clonedAnnotation);
            }