Visual Basic - como arreglarlo??

Mediante este codigo:
CommonDialog1.Filter = "JPEG(*.jpg)|*.jpg"
CommonDialog1.ShowSave
SavePicture Form1.pb.Image, CommonDialog1.FileName

he hecho que el commondialog me guarde una imagen pero me salen dos problemas:

-el primero que si le doy a cancelar en el commondialog me sale un error y se cierra el programa .
-el segundo es que si es grande la imagen se guarda un trozo de la imagen.

Para el Error mejor es lo siguiente, el ON ERROR para que manejes todos los errores.

SUB ....

ON ERROR GOTO X
CommonDialog1.Filter = "JPEG(*.jpg)|*.jpg"
CommonDialog1.ShowSave
SavePicture Form1.pb.Image, CommonDialog1.FileName

EXIT SUB
X:

ENDSUB

Muchas gracias me ha servido de mucha ayuda, pero sabes por que se guarda parte de la imagen.