有一个代码和我需要的差不多，但要修改，求高手帮忙，感激不尽

我要做的程序的功能是实现：由数据库传过来的数据（1000多对数），生成二维曲线。以下的代码和我所需有相似之处，但有不同，希望高手帮忙写个代码，实现程序的功能。。。感激不尽



绘制实时采集数据曲线的程序源代码如下：  

Dim x0, y0, h, w

Dim I as integer

x0 = Shape1.Left

y0 = Shape1.Top + Shape1.Height

h = Shape1.Height / 1

w = Shape1.Width / 300

Picture1.ForeColor = QBColor(1)

Picture1.Cls

Y1 = Shape1.Height

For I=0 to 600

Picture1.Line (x0 + i * w, y0 - dqsj(i) * h)-(x0 + (i + 1) * w,y0 - dqsj(i + 1, Q) * h )

Next

//说明：其中，dqsj是记录10分钟内实时采集速度值的数组。