VB实时曲线绘制有关问题

VB实时曲线绘制问题
在VB中选中PictureBox控件，直接在它的属性框中，修改一些属性参数。“名称”改为Pic，。“BackColor”改为：&H00004000&（墨绿色背景颜色） 

Option Explicit

Dim DataFromCom As Integer '从串口读过来的实时值
Dim DataFromComLast As Integer '上次的串口值
Dim TimeCount As Integer

Private Sub Form_Load()
PicScale Pic '调整图像框的坐标系
PicMidleLine Pic '在图像框中画一条中线
End Sub
Private Sub PicScale(picX As PictureBox) '调整图像框的坐标系
picX.Scale (0, picX.ScaleHeight)-(picX.ScaleWidth, -picX.ScaleHeight)
End Sub

Private Sub PicMidleLine(picX As PictureBox) '在图像框中画一条中线
picX.Line (0, 0)-(picX.ScaleWidth, 0), vbGreen '画出中线
End Sub

Private Sub DrawRealLine(picX As PictureBox, TimeCountX As Integer, DataFromComX As Integer, DataFromComLastX As Integer)

If TimeCountX - 1 > 0 Then
picX.Line ((TimeCountX - 1) * 10, DataFromComLastX)-(TimeCountX * 10, DataFromComX), vbWhite
End If

End Sub

Private Sub Timer1_Timer()
DataFromComLast = DataFromCom
Randomize
DataFromCom = 3000 * Rnd
TimeCount = TimeCount + 1
If (TimeCount * 10 > Pic.ScaleWidth) Then
  Pic.Cls
  TimeCount = 0
End If

DrawRealLine Pic, TimeCount, DataFromCom, DataFromComLast '画出实时的曲线
End Sub
这里是随机信号，现在用AC6611采集卡采集，A/D转化的程序是adata(j) = AC6611_ADToVoltage(ADData, 0)，谁能帮我改下程序，使随机信号用采集到得信号代替，达到实时曲线绘制效果，感激不尽 
如果有其他绘制曲线方法也可以，但一定要把AD转化程序用上去

[解决办法]
可参考这三个代码 自己得改改

【CBM666 的实时动态曲线图演示】
http://hi.baidu.com/cbm666/blog/item/d8efafc3de092756b219a871.html


【CBM666 的随机曲线图】
http://hi.baidu.com/cbm666/blog/item/b1880fb3f21587a6d8335a68.html


【CBM666 的实时串口数据接收曲线图】
http://hi.baidu.com/cbm666/blog/item/bf8b982224eec8f2d6cae2df.html