VB中图片自动适应picturebox控件大小

VBÖÐͼƬ×Ô¶¯ÊÊÓ¦picturebox¿Ø¼þ´óСPrivateSubPicture1_Paint()Picture1.AutoRedraw=TruePicture1.PaintPicturePicture1.Picture,0,0,Picture1.ScaleWidth,Picture1.ScaleHeightEndSubÉèÖÃ2¸öPicturebox¿Ø¼þ£ºPic1,Pic2£¬ÆäÖÐpic2µÄvisibleÉèÖÃΪfalse£¬Pic2µÄAutoSizeÉèÖÃΪTrue£¬°ÑÒªÏÔʾµÄͼƬ¼Óµ½PIC2ÖлòPIC2.Picture=LoadPicture(d:/b.jpg)ÔÙÔÚ³ÌÐòÖмÓÈ룺PrivateSubPic1_Resize()Pic1.PaintPicturePic2.Image,0,0,Pic1.Width,Pic1.Height,0,0,Pic2.Width,Pic2.HeightEndSub