Visual Basic - REDUCCION DE IMAGENES (TAMAÑO)

TENGO UN PROBLEMA ESTOY GRABANDO IMAGENES FOTOGRAFICAS Y FIRMAS DEL SIGIENTE MODO: SavePicture Image1.Picture, DirLIBRO & "\" & Trim(TEXTO1.Text) + "F" & ".jpg"
Y EL TAMAÑO DE CADA IMAGEN SUPERA LOS 500KB MI SERVIDOR VA EXPLOTAR, AYUDA PORFAVOR, DE ANTEMANO GRACIAS

HOLA
lo que puede hacer es compromir la imagen a formato jpg
para es debes buscar una dll que te comprima la imagen
en internet hay muchas
el problema del savepicture es que solo graba la imagen en formato bmp

SALUDOS!!!
escribeme y te mando una dll con ejemplos