vb中怎么保证曲线每秒更新 给讲一下每条语句 在线等

我这有一个VB程序，为什么曲线不是每秒更新 而是等一会才自动更新呢 求高手给我讲一下
Public i As Integer
Private pdate(50) As Variant

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 4 'COM4
MSComm1.Settings = "1200,n,8,1" '1200BSP，无校验位，8个数据位，1个停止位
MSComm1.PortOpen = True '打开串口
MSComm1.InputMode = comInputModeBinary '以2进制形式接收数据
MSComm1.RThreshold = 1 '1个字符引发事件
i = 0
Picture1.Scale (0, 100)-(10, 0)
End Sub

Private Sub MSComm1_OnComm()
Dim indata As Variant
Dim bte(0) As Byte

Select Case MSComm1.CommEvent '通讯事件发生
Case comEvReceive
indata = MSComm1.Input
bte(0) = AscB(indata) '读入数据
test = bte(0) * 80 / 255 * 5 '测量值/255*实际量程
ptest = Round(test, 3) '小数点后3位四舍五入
Text2.Text = ptest
pdate(i) = ptest
MSComm1.InBufferCount = 0 '接收缓冲区清空

If i < 50 Then
i = i + 1
Exit S

vb 中怎么画状态曲线 在VB中怎么用鼠标画曲线 请问VB中怎么清除shape里的的曲线 在VB中怎么实现一个变量每秒加1呀。 如何在VB中画曲线 如何在VB中作实时曲线？ VB中怎么把TXT或者数据库的数据绘制成曲线 vb 中,怎么给控件命名? 给四个点，用vb绘出曲线 VB中怎么使对数据库的更新操作立刻在DataGrid中同步显示出来？