как сохранить пропорции в PictureBox

[Александр80]

Подскажите пожалуйста, как из одного PictureBox (1) перенести изображение в другой PictureBox (2) имеющий определенные размеры. Задача перенести так, что бы картинка соблюдала пропорции и полностью отображалась в PictureBox(2)

Я пробовал так:

Код: Выделить всё

Picture2.PaintPicture _
Picture1.Picture, 0, 0, _
Picture2.Width, Picture2.Height, 0, 0, _
Picture1.ScaleWidth, Picture1.Height, vbSrcCopy

Но пропорции не соблюдаются, фотогафия (картинка) получается вытянутой на всю длину и высоту PictureBox(2)… В коде что-то надо исправить, а вот что...?

[tyomitch]

Подкину идею: картинка растянется пропорционально, если её высоту и ширину увеличить в одно и то же число раз. Например, в отношение её старой и новой высот.
Код сам напишешь?

[Александр80]

Беда еще в том что Picture2 меняет размеры в зависимости от размера формы... Идею понял буду пробовать Спасибо!!!