With picturebox1 .Width = .ScaleX(.Picture.Width, vbHimetric, vbTwips) 'ScaleModeConstants .Height = .ScaleY(.Picture.Height, vbHimetric, vbTwips) End With