AnnMove example for Visual Basic

Note: Also works with Access 95 and 97.

Note: This topic is for Document/Medical only.

'Please note the following:
'LEADRasterView1 refers to a LEADRasterView control
'Global declarations
Private WithEvents RasterAnn As LEADRasterAnnotation
Private RasterAnnToolbar As LEADRasterAnnToolBar

'In the Form_Load method:
Set RasterAnn = New LEADRasterAnnotation
Set RasterAnnToolbar = New LEADRasterAnnToolBar
RasterAnn.AnnParentRasterView = LEADRasterView1

'This example moves one or more selected annotation objects.
Private Sub AnnMove_Click()
Dim DeltaX As Integer
Dim DeltaY As Integer

'Use pixels
LEADRasterView1.ScaleMode = SCALEMODE_PIXEL

'Specify arbitrary delta values.
DeltaX = 20
DeltaY = -20

'Move the selected annotations.
RasterAnn.AnnMove DeltaX, DeltaY, True
End Sub