AnnotationStampText Example VB

This example places a customized rubber stamp at a predetermined location on the image.  TheAnnotationStampText property is set to the desired stamp content, which includes a combination of text and date macros.

Private Sub cmdStamp_Click()

    ImgEdit1.AnnotationFont = "Courier"
    ImgEdit1.AnnotationFontColor = vbRed
    'This stamp uses embedded text macros for date and time
    ImgEdit1.AnnotationStampText = "Application received on %B %d, %Y at %H"
    ImgEdit1.AnnotationType = wiTextStamp  '8
    ImgEdit1.Draw 10, 10
     
End Sub