AnnInsert example for Visual Basic

Note: This topic is for Document/Medical only.

'This example
'1. creates an ellipse annotation object
'2. sizes the ellipse
'3. inserts the ellipse into the annotation container
Private Sub AnnInsert_Click()
Dim hEllipseObject As Long
RasterAnn.AnnCreate ANN_OBJECT_ELLIPSE, False, True
hEllipseObject = RasterAnn.AnnObject


RasterAnn.AnnRectLeft(hEllipseObject) = 0
RasterAnn.AnnRectTop(hEllipseObject) = 0
RasterAnn.AnnRectWidth(hEllipseObject) = 100
RasterAnn.AnnRectHeight(hEllipseObject) = 100

RasterAnn.AnnInsert RasterAnn.AnnContainer, hEllipseObject, False
End Sub