求助，VB 描点绘制曲线

Question

vb6.0
采集电流，电压存入数据库，20s/次
从数据库中读出某时间段的数据绘制曲线，采用描点的方法
不要求实时显示
我在用PICTUREBOX控件做，但在把坐标刻度做成根据不同数据宽度自动调整的时候感觉比较麻烦，还未找到可行方法
另外还有数据坐标与图象坐标转换算法的问题
希望达人给点建议或者思路

Answer 1

要么自己画线，用line方法把这些采样点连起来。要么用mschart控件，也可以绘制曲线。

Answer 2

Private Sub Picture1_Click()
  y_min = 10000000000#
  y_max = -10000000000#
  x_min = 0
  x_max = 500
  Picture1.Cls
  Picture1.ScaleMode = 3
  points = Picture1.ScaleWidth - 1
  For i = 0 To points
  x = x_min + (x_max - x_min) * i / points
  y = x * x
  If y > y_max Then
  y_max = y
  End If
  If y < y_min Then
  y_min = y
  End If
  Next i
  Picture1.Scale (x_min, y_max)-(x_max, y_min)
  Picture1.CurrentX = x_min
  Picture1.CurrentY = x_min * x_min
  For i = 1 To points
  x = x_min + (x_max - x_min) * i / points
  Picture1.Line -(x, x * x)
  Next i
End Sub