Private Sub MSComm1_OnComm()
Dim temp1 As Variant
Select Case MSComm1.CommEvent '判断MSComm1通信事件
Case comEvReceive '收到Rthreshold个字节产生的接收事件
If chkInput = vbChecked Then 'Hex显示
MSComm1.InputMode = comInputModeBinary
Do While MSComm1.InBufferCount > 0
ReDim bytReceiveByte(0)
bytReceiveByte = MSComm1.Input '显示
MSComm1.RThreshold = 0 '关闭OnComm事件接收
Call GetDisplayText '文本显示
temp1 = bytReceiveByte(0) '画图
draw (temp1) '画图
MSComm1.RThreshold = 1 '打开MSComm1事件接收
Loop
ElseIf chkInput = vbUnchecked Then 'text显示
MSComm1.InputMode = comInputModeText
txtInput.Text = txtInput.Text + MSComm1.Input
End If
Case Else
End Select
End Sub

这是我的接收程序，要接收单片机发来16K的数据，这样做了之后，单步运行是可以的，可是在全速运行后就会像陷入了死循环似的，是什么原因呢？
大家帮帮忙解决一下吧！！
谢谢了！~~~