vb 处理数据问题

我要处理数据，存储在excel表格中，有8列数据，没列有3-4万行数据，想画图分析，但是画图时会很慢，想知道有没有办法让图形很快画出来
我的程序：
     for j=1 to 
       for i=1 to 40000
         picture1.line (i,xapp.cell(i,j))-(i+1,xapp.cell(i+1,j))
       next i
     next j --------------------编程问答-------------------- 没办法啊,EXCEL的读取耗时啊~~~

要不先将数据读到数组中,再画线 --------------------编程问答-------------------- 有8列，每列3-4万行数据，你觉得你的屏幕能放下这么多数据点吗？
建议，用sql将数据一次读入内存，还不用打开Excel；对这么多数据进行采样，精简后再画图，当然要取合适采样数。这么多数据堆在屏幕上，我觉得Line都不用了，直接画点儿就行了吧。

补充：VB ,  基础类