AnnAutoDialogFontSize Example for Visual Basic

'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 will set the dialog fonts to use Courier 15
Private Sub Command7_Click()
RasterAnn.AnnSetAutoText ANN_AUTOTEXT_DIALOG_FONT, "Courier New"
RasterAnn.AnnAutoDialogFontSize = 15
End Sub