Available in the LEADTOOLS Imaging toolkit.
Emboss example for Access 2.0
This example applies an emboss effect and repaints the image.
Me![LEAD1].Object.Emboss EMBOSS_NE, 500 Me![LEAD1].Object.ForceRepaint