DisplayBlankImage Example VB

This example creates a new blank image and then places a company logo at the top of the new page.

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