Available in the LEADTOOLS Imaging toolkit.
Emboss example for Visual Basic
This example applies an emboss effect and repaints the image.
Lead1.Emboss EMBOSS_NE, 500 Lead1.ForceRepaint