BurnInAnnotations Example VB

This example shows how to convert an image, burn in annotation marks, and save the image under a new file name.

Private Sub cmdBurnIn_Click()
    Const ALL_MARKS = 0
    Const WINDOWS_DEFAULT = 2
    
    'If you wish to save color annotations on a black
    'and white image you must first convert the
    'image to a non black and white type
    ImgEdit1.ConvertPageType wiPageTypePal8, True
    'Save all marks in their original colors
    ImgEdit1.BurnInAnnotations ALL_MARKS, WINDOWS_DEFAULT
    'Color Burn in always converts to RGB24.  To save disk space,
    'save the image as an 8 bit palettized image
    ImgEdit1.SaveAs "C:\imgsave\annotate.tif", wiFileTypeTIFF, wiPageTypePal8
End Sub