图形框和图像框
若要在应用程序中创作图形效果，可以使用图形框（PictureBox）和图像框(Image)控件。它们都可以显示BMP、ICO、WMF、GIF、JPEG等文件的图形，而且图形框还可以作为容器放置其它控件，以及通过Print、Pest、Line、Circle等方法在其中输出文本和画图。
7.6.1 图形框
图形框的主要属性有Picture和Autosize。
(1) Picture属性
Picture属性决定控件中所显示的图形文件，其值可以通过下列三种途径获得：
u 在设计状态直接选择图形文件设置Picture属性。
u 在程序运行时使用LoadPicture()函数装入图形，使用形式为：
图形框. Picture＝LoadPicture(“图形文件名”)
u 装入另一图形框中的图形，使用形式为：
图形框1. Picture=图形框2. Picture
(2) Autosize属性
当Autosize属性设置为True时，图形框将自动调整大小与显示的图片匹配；将Autosize属性设置为False时，则图形框不能自动改变大小，若加载的图形比控件大，则超过部分将被剪裁。
7.6.2 图像框
图像框和图形框基本相同，都有Picture属性，区别在于两点，一是图像框不能作为容器存放其它控件、二是图像框没有Autosize属性，但有Stretch属性。
Stretch属性用于伸展图像，当Stretch属性为False时，在设计状态，图像框可自动改变大小，以适应其中的图形，相当于图形框在Autosize属性设置为True时的功能，而在程序运行时图形框的大小不会改变，图形或剪裁占用图像框左上角部分空间，相当于图形框在Autosize属性设置为False时的功能；当Stretch属性为True时，加载到图像框的图形可自动调整尺寸，以适应图像框的大小，图形有可能会失真。利用图像框的Stretch属性可实现图形有缩放。
事件代码如下：
Dim H, W As Integer ' H和W分别存放图形的原始大小
Sub Check1_Click()
Image1.Stretch = Check1.Value '复选框控制Image1的Stretch属性
End Sub
Sub Form_Load()
H = Image1.Height ' 初始时，Image1的高度就是图像的原始高度
W = Image1.Width ' 初始时，Image1的宽度就是图像的原始宽度
End Sub
Sub HScroll1_Scroll()
Image1.Height = H * HScroll1.Value / 10 ' Image1按比例缩放高度
Image1.Width = W * HScroll1.Value / 10 ' Image1按比例缩放宽度
End Sub