放大缩小还原图片,VB6.0源代码编写,Image1.Picture = LoadPicture("3800.jpg")