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 SavedMode

SavedMode = Lead1.ScaleMode 
Lead1.ScaleMode = 3 ' Use pixels for sizing the thumbnail
Lead1.SaveWithStamp "c:\lead\images\stamp.jpg", FILE_JPEG, 24, 30, 150, 100, 24
Lead1.ScaleMode = SavedMode
Lead1.LoadStamp "c:\lead\images\stamp.jpg"
Lead1.ForceRepaint