VB 接收延迟严重 怎么办，重赏

我做了个VB 串口接收数据，然后画图的程序，每秒的数据速率是400bytes/S左右，数据是一组一组的发过来的，VB只做接收，每组数据是13字节。没收到一组就开始画图。每组数据包含有画图所要的所有参数。但发现数据有延迟的现象，并且比较严重，开始延迟小，久了就很严重，要十几秒，才能反应到数据的变化，应该怎么办？速率是9600，n，8，1

下面是我的代码：
设置：

With MSComm1
.InputMode = comInputModeBinary
.InputLen = 1
.Settings = Text2.Text
.InBufferSize = 1000
.RThreshold = 13
.SThreshold = 1
.CommPort = Val(Text1.Text)
.PortOpen = True
End With

接收部分：
Dim datas0 As Byte, space As Long, angle As Integer
Static datas1, c, t, tt As Byte
Static datas2, datas3, datas4 As Byte
Dim Buffer As Variant

If MSComm1.CommEvent = 2 Then
'MSComm1.InputLen = 1
Buffer = MSComm1.Input

For i = LBound(Buffer) To UBound(Buffer)
datas0 = Buffer(i)
Next i

If datas0 = 255 Then
t = t + 1
Else
If t < 4 Then t = 0
End If

If t >= 4 Then '判断是否为有用数据
c = c + 1 <

如何用VB接收系统关闭动作,然后延迟系统关闭时间?? 最近网络游戏延迟严重 WOW延迟严重 月经延迟严重吗？ 网络延迟十分严重 手机短信接收时间延迟问题 vb 关于时间延迟 电脑重起延迟 VB如何接收邮件 VB串口接收