_ Public Sub Save(ByVal b As Bitmap, ByVal FileName As String, ByVal Compression As Long, ByVal MimeType As String) Dim Params As EncoderPara
I suppose to use jpegtran utility as described in Image Optimization, Part 4: Progressive JPEG…Hot or Not? article:
jpegtran -copy none -progressive input.jpg output.jpg
In addition you can optimize Haffman tables by such way:
jpegtran -copy none -optimize input.jpg output.jpg