图形文件显示在VB编程中可通过调用LoadPicture函数来实现，本文通过一个实例实现了图形文件的快速查看，设计好的界面如
所示。在本例中通过驱动器列表框控件(DriveListBox)、目录列表框控件(DirListBox)、文件列表框控件(FileListBox)联合使用，定位要显示的图形文件的路径，在文件列表框选中文件名，就可在图片框控件中预览图形，并能根据图形的大小自动调整显示的区域。
程序代码如下：
Private Sub Form_Load()
File1.Pattern="*.bmp;*.ico;*.wmf" ‘设置文件列表框的显示文件类型
Picture1.AutoSize=-1 ‘将图片框尺寸设为自动改变模式
End Sub
Private Sub Drive1_Change()
Dir1.Path=Drive1.Drive ‘使目录列表框的路径随驱动器列表框内容变化
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path ‘使文件列表框的路径随目录列表框的内容变化
End Sub
Private Sub File1_Click()
Picture1.Picture=LoadPicture(File1.Path+"\"+File1.filename) ‘装载图片到图片框控件
End Sub
Private Sub Command1_Click()
End
End Sub