FormにPictureBoxを貼り付けて、ボタンでPictureBoxの大きさを調整できるプロ
グラムを作りました。PictureBoxの幅を縮めたい時は

Private Sub cmdマイナス_Click()
Picture1.Height = Picture1.Height - 567 '567twpは1cm
end sub

のようにやっています。
PictureBoxに目一杯の四角形を描いて、保存する時にPictureBoxの幅を縮めた場
合は画面上のPictureBoxで見た通りの画像にしたいのですが、画像を確認すると
四角形が丸々残っている状態です｡画面上の幅とピタリとあわせて保存したい場合
には何の処理が欠けているのでしょうか？