Set obj = CreateObject("MyCom.MyAPI")

Value = obj.SavetoJPEG( "C:\TEMP\test.bmp", "C:\TEMP\test.jpg", 100, True )
obj.MsgBox( Value )