VB实时曲线绘制问题

在VB中选中PictureBox控件，直接在它的属性框中，修改一些属性参数。“名称”改为Pic，。“BackColor”改为：&H00004000&（墨绿色背景颜色） Option ExplicitDim DataFromCom As Integer '从串口读过来的实时值
Dim DataFromComLast As Integer '上次的串口值
Dim TimeCount As IntegerPrivate 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 SubPrivate Sub PicMidleLine(picX As PictureBox) '在图像框中画一条中线
picX.Line (0, 0)-(picX.ScaleWidth, 0), vbGreen '画出中线
End SubPrivate 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 IfEnd SubPrivate Sub Timer1_Timer()
DataFromComLast = DataFromCom
Randomize
DataFromCom = 3000 * Rnd
TimeCount = TimeCount + 1
If (TimeCount * 10 > Pic.ScaleWidth) Then
    Pic.Cls
    TimeCount = 0
End IfDrawRealLine Pic, TimeCount, DataFromCom, DataFromComLast '画出实时的曲线
End Sub
这里是随机信号，现在用AC6611采集卡采集，A/D转化的程序是adata(j) = AC6611_ADToVoltage(ADData, 0)，谁能帮我改下程序，使随机信号用采集到得信号代替，达到实时曲线绘制效果，感激不尽 
如果有其他绘制曲线方法也可以，但一定要把AD转化程序用上去