Hay una .dll que te puede servir, que convierte cualquier imagen a formato JPG y comprime... pero, no sé donde puedo ponértela para que la descargues... sino lo que te escribo abajo queda inservible
Intenta con esta...
este va en GENERAL
Este en el load del FORM
Set convierte = New Class1
Este en el commandbutton para convertir
ar = ""
ar = convierte.GuardarComo(Me, "Guardar Como")
If ar = "" Then Exit Sub
convierte.GrabarJpg Imagen, ar, 100
MsgBox "Imagen convertida al formato JPG", vbInformation, "Imagen guardada correctamente"
el objeto convierte posee 3 parámetros:
* imagen: Sería tu picturebox, yo tengo la imagen ya cargada allí.
* ar: Sería el nombre que le darías a la imagen a convertir en JPG.
* 100, es un entero entre 0-100, modo de compresión.
Si no te sirve... mandame un mensaje a
Jhovanny_8@hotmail.com y trato de enviartelo. quede claro, que la .dll no la hice yo pero, sé utilizarla.