求组画图直线拟合问题

大家好，我是VB初学者，现在在论文中要做个拟合数据出曲线的程序，要实现：能选择EXCEL文件，选择其中的第2列B列为Y坐标，横坐标从0开始每个点增加3.5。我用了一个Picture和CommonDialog控件和Command命令控件，可是调试不好，希望专家帮忙调试下，谢谢了，源文件不知道怎么搞的上传不了提示-1，只能把代码贴在下面，试的时候要在引用把跟EXCEL相关的选上。。

Private Sub Command1_Click()
Dim a() As String

Dim NewApp As New Excel.Application
Dim NewSheet As New Excel.Worksheet
Dim NewBook As New Excel.Workbook

CommonDialog1.Filter = "*.xls"
CommonDialog1.ShowOpen
fname = CommonDialog1.FileName

Set NewApp = CreateObject("Excel.application")
Set NewBook = NewApp.Workbooks.Open(fname)
Set NewSheet = NewBook.Worksheets(1)

    For i = 1 To NewSheet.UsedRange.Rows.Count
    ReDim Preserve a(i)
    a(i) = NewSheet.Cells(i, 2)                     '将第2列值赋给数组
    Next
    For j = 0 To NewSheet.UsedRange.Rows.Count Step 3.5
    Next                                             '想将j做为X轴的值，且数目跟i相等，是不是还要设个n





NewBook.Close
NewApp.Quit

'
  Picture1.Cls
    Picture1.ForeColor = vbRed
    Picture1.Scale (-119, 40)-(3881, -10)
    Picture1.Line (-119, 0)-(3881, 0)
    Picture1.Line (0, 40)-(0, -10)
    Picture1.Line (3800, 1)-(3881, 0)
    Picture1.Line (3800, -1)-(3881, 0)
    Picture1.Line (50, 39)-(0, 40)
    Picture1.Line (-50, 39)-(0, 40)                    '画坐标系
'

    Picture1.Line (0, a(1))-(3.5, a(2))      '想将所有点都连起来，应该怎么编啊
End Sub --------------------编程问答-------------------- 你要达到什么目的?是不是将X,Y值做为人材轴的刻度?"想将所有点都连起来"--所有点指什么? --------------------编程问答-------------------- 坐标轴 --------------------编程问答-------------------- EXCEL中第二列都是些什么数据? --------------------编程问答-------------------- Picture1.Scale (-119, 40)-(3881, -10) 意味着一个像素将近4个单位,横坐标3.5一个单位,连一个像素都没有,怎能画出来?问题太大. --------------------编程问答-------------------- 第2列是温度数值，在10到40摄氏度之间，X轴是时间从0开始每次增加3.5分钟，总共测了3771分钟，所以我把坐标轴X设置到了3881 --------------------编程问答-------------------- 3771-(-119)=3890,按分辨率1024*768计,整个屏幕1024像素,3890/1024=3.8,就是一个像素点3.8个单位,根本画不成,只能动态显示比如0--35分钟的图像,再换一屏36-70分钟的…… --------------------编程问答-------------------- 那你能不能以7分钟一个帮我写下这个程序呢，谢谢 --------------------编程问答-------------------- 直接用CHART控件吧,简单又美观 --------------------编程问答-------------------- 能不能把步骤和详细代码告诉我下，初学么办法。。。谢谢大侠拉

补充：VB ,  基础类