一个可以绘画的VB源代码

				VERSION 5.00
				Begin VB.Form frmInputParameters 
				   Appearance      =   0  'Flat
				   BackColor       =   &H80000005&
				   Caption         =   "图表"
				   ClientHeight    =   4035
				   ClientLeft      =   60
				   ClientTop       =   345
				   ClientWidth     =   5640
				   LinkTopic       =   "Form1"
				   ScaleHeight     =   4035
				   ScaleWidth      =   5640
				   StartUpPosition =   3  '窗口缺省
				   Begin VB.TextBox txtFile 
				      Alignment       =   2  'Center
				      Height          =   375
				      Left            =   120
				      TabIndex        =   9
				      Top             =   3000
				      Width           =   5415
				   End
				   Begin VB.CommandButton cmdExit 
				      Caption         =   "退  出"
				      Height          =   375
				      Left            =   4440
				      TabIndex        =   7
				      ToolTipText     =   "结束程序运行"
				      Top             =   3480
				      Width           =   1095
				   End
				   Begin VB.CommandButton cmdOK 
				      Caption         =   "确  定"
				      Height          =   375
				      Left            =   3000
				      TabIndex        =   6
				      ToolTipText     =   "选择好文件并给出行数和列数后单击"
				      Top             =   3480
				      Width           =   1215
				   End
				   Begin VB.FileListBox File1 
				      Appearance      =   0  'Flat
				      Height          =   1470
				      Left            =   120
				      TabIndex        =   2
				      Top             =   1080
				      Width           =   2655
				   End
				   Begin VB.DirListBox Dir1 
				      Appearance      =   0  'Flat
				      Height          =   2190
				      Left            =   3000
				      TabIndex        =   1
				      Top             =   360
				      Width           =   2415
				   End
				   Begin VB.DriveListBox Drive1 
				      Appearance      =   0  'Flat
				      Height          =   300
				      Left            =   120
				      TabIndex        =   0
				      Top             =   360
				      Width           =   2655
				   End
				   Begin VB.Label Label5 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "数据文件全名"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   1320
				      TabIndex        =   8
				      Top             =   2760
				      Width           =   3015
				   End
				   Begin VB.Label Label3 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "选择数据文件"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   120
				      TabIndex        =   5
				      Top             =   840
				      Width           =   2535
				   End
				   Begin VB.Label Label2 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "选择目录"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   3000
				      TabIndex        =   4
				      Top             =   120
				      Width           =   2415
				   End
				   Begin VB.Label Label1 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "选择驱动器"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   120
				      TabIndex        =   3
				      Top             =   120
				      Width           =   2655
				   End
				End
				Attribute VB_Name = "frmInputParameters"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				Option Explicit
				Private Sub Form_Load()
				    File1.Pattern = "*.dat"     '文件列表框1只显示数据文件
				End Sub
				
				'选择目录
				Private Sub Dir1_Change()
				    File1.Path = Dir1.Path
				End Sub
				
				'选择驱动器
				Private Sub Drive1_Change()
				    Dir1.Path = Drive1.Drive
				End Sub
				
				'确定数据文件
				Private Sub File1_Click()
				    txtFile.Text = Dir1.Path & "\" & File1.FileName
				End Sub
				
				'确定，给出文件名和行数、列数后单击
				Private Sub cmdOK_Click()
				    strFileName = txtFile.Text
				    Unload Me
				'显示作图窗体
				    frmPicture.Visible = True
				End Sub
				
				'退出，结束程序运行
				Private Sub cmdExit_Click()
				    Unload Me
				    End
				End Sub