SaveJPEG ActiveX Component Description:
Simply drop this control on
your form and save any image as a
JPEG, with between 0% and 100% compression quality,
with just
one line of code.

Comes with example project. P.D.Blake (download page)