AnnParentRasterView example for Visual Basic

'This sample shows the minimal code to use the LEAD Annotation COM object
'LEADRasterView1 is a LEAD Raster View control
'Public WithEvents RasterAnn As LEADRasterAnnotation
Private Sub AnnParentRasterView_Click()

  Set RasterAnn = New LEADRasterAnnotation
  
   'Unlock the annotation support
   'Note that L_KEY_DOCUMENT is a #define for the support key that you must supply
   LEADRasterView1.Raster.UnlockSupport L_SUPPORT_DOCUMENT, L_KEY_DOCUMENT

   'Attach the annotation object to the raster view control
   RasterAnn.AnnParentRasterView = LEADRasterView1
   
   'Automatically update annotations with raster changes
   RasterAnn.AnnAutoUpdate = True

   '...
   '...  the rest of the program
   '...
End Sub