AnnotationFillStyle Example VB

This example places a company logo (image) annotation at the top of a new page.  The AnnotationFillStyle property is set to opaque so none of the underlying image data is visible through the logo.

Private Sub cmdDrawLogo_Click()
    'Create a new 8 1/2 X 11" black and white image at 100 dpi
    ImgEdit1.DisplayBlankImage 850, 1100, 100, 100, wiPageTypeBW
    
    ImgEdit1.AnnotationImage = "D:\image2\corplogo.bmp"
    'Logo would obscure any text under it if Opaque
    ImgEdit1.AnnotationFillStyle = wiOpaque   '1
    'If image is embedded rather than referenced, the source
    'image need not be present when the image is displayed
    ImgEdit1.AnnotationType = wiImageEmbedded   '5

    'Image mark only requires left and top parameters to draw
    'Start not quite halfway across page, 25 pixels from top (1/4")
    ImgEdit1.Draw 350, 25
End Sub