SaveWithStamp example for Visual Basic

Note: Also works with Access 95 and 97.

This example saves the image in a JPEG file that includes a thumbnail (stamp) image. It then loads the thumbnail from the new file.

' Declare a local variable
Dim RasterIO As New LEADRasterIO
LEADRasterView1.ScaleMode = 3 ' Use pixels for sizing the thumbnail
RasterIO.SaveWithStamp LEADRasterView1.Raster, "d:\temp\stamp.jpg", _
                       FILE_JFIF, 24, 30, 150, 100, 24
RasterIO.LoadStamp LEADRasterView1.Raster, "d:\temp\stamp.jpg"
LEADRasterView1.ForceRepaint