Available in the LEADTOOLS Imaging toolkit.
UnsharpMask example for Visual Basic
LEAD1.UnsharpMask 200, 15, 50, 1 'RGB_SPACE