这一功能可以用 VB 本身带有的 SavePicture 语句来完成。
SavePicture语句将窗体、图象控件或图片框中的图形图象保存到磁盘上的一个文件中，这些图象可以是使用画图方法(Line，Circle，Pset)产生出来的，也可以存储那些通过设置窗体或图片框的图片属性或者通过PaintPicture 方法或 Load Picture 函数载入的图象。这些载入的图象可以是 BMP、Ibsp; 或 WMF 图形文件。
SavePicture 语句的语法格式如下：
SavePicture  icture，stringexpression
参数  icture 为窗体或图片框的  icture 或 ige 属性；参数 strngexpression 为保存的文件名。
下面举一个具体的程序来说明定制图象文件的过程：
1、创建一个新的项目文件，在 For 中加入一个图象控件 Picture1，将Picture1 的 AutoRedraw 属性设置为 True;
2、在ForLoad() 事件中，加入如下代码:
Private Sub ForLoad()
Dinbsp; bsp; As Integer
Dinbsp; bsp; As Integer
Dinbsp; Lit As Integer
Dinbsp; Radius As Integer
CX＝1000
CY＝1000
For Radius＝0 To Lit
Picturel.Circle(CX,CY),Radius,RGB(Rnd*255,Rnd*255,Rnd*255)
Radius
SavePicture Picturel.Ige,"c:\custob"
End Sub
执行此程序就会把图片框 Picture1 上的图象保存在 bsp; 盘根目录下 custob 图象文件中。
最后有两点需要指出：
1、在使用 SavePicture 语句之前，必须先将窗体或图片框的 AutoRedraw 属性设为 True，否则保留的将是一张空图;
2、使用 Ige 属性保存的用画图命令(如 Line，Cirele，Pset 或 Print)画出来的图形总是以 BMP 文件格式保存。但在程序设计时如果使用窗体或图片框的 Picture 属性载入或在程序运行时通过 LoadPicture 函数载入的图象，使用 SavePicture 语句存储时，存储的文件格式同其载入前的文件格式一样(如 Ibsp; 格式等)。
102,Q:在 Visual Basibsp; 中如何拖动窗体或控件?
A:现在的许多 windows 下的应用程序，都采用了图形化的界面，但是在这样的界面下就不能使用 Windows 原来的标题条了，否则会影响界面的美观。那么在没有标题条的情况下如何用鼠标拖动窗体或者其它的控件呢?
其实，采用 API 函数调用很容易实现，下面我们以拖动窗体 For 为例来具体讲一下实现方法：
1、新建立一个项目，名称为 test.vbp；
2、填加一个模块，名称为 test.bas，并且在声明部分加入以下代码：
Debsp; Fun ReleaseCapture Lib "user32" () As Long
Debsp; Fun SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal ; As Long, lParanbsp; As Any) As Long
Publibsp; st WM_SYSAND = H