AnnRectLeft example for Visual Basic

Note: This topic is for Document/Medical only.

'Declare the RasterAnn as follows
Public WithEvents RasterAnn As LEADRasterAnnotation

'This example creates two annotation notes as a single undo operation
Private Sub AnnAddUndoNode_Click()
Dim hObject1 As Long
Dim hObject2 As Long

'Call the AddUndoNode method to add an undo node to the container.
RasterAnn.AnnAddUndoNode

'Disable the undo feature
RasterAnn.AnnUndoEnable = False

'Perform the operations to be combined into one undo.
RasterAnn.AnnCreate ANN_OBJECT_NOTE, True, True
hObject1 = RasterAnn.AnnObject
RasterAnn.AnnRectLeft(hObject1) = 0
RasterAnn.AnnRectTop(hObject1) = 0
RasterAnn.AnnRectWidth(hObject1) = 100
RasterAnn.AnnRectHeight(hObject1) = 100

RasterAnn.AnnCreate ANN_OBJECT_NOTE, True, True
hObject2 = RasterAnn.AnnObject 
RasterAnn.AnnRectLeft(hObject2) = 0
RasterAnn.AnnRectTop(hObject2) = 100
RasterAnn.AnnRectWidth(hObject2) = 100
RasterAnn.AnnRectHeight(hObject2) = 100

'Re-enable the undo feature
RasterAnn.AnnUndoEnable = True
End Sub