实现代码。VERSION 5．00。BeginVB．FormForm1。Caption＝＂使用PictureBox控件实现图像放大和缩小＂。ClientHeight＝5580。ClientLeft＝60。ClientTop＝345。ClientWidth＝7935。LinkTopic＝＂Form1＂。ScaleHeight＝5580。ScaleWidth＝7935。StartUpPosition＝3＇窗口缺省。BeginVB．PictureBoxPicture1。AutoRedraw＝－1＇True。AutoSize＝－1＇True。Height＝3960。Left＝－15；Picture＝＂Form1．frx＂：0000。ScaleHeight＝3900。ScaleWidth＝6240。