串口通信遇到的问题

我的vb不是很好,但这几天编程需要vb,遇到个头疼的问题,兄弟们帮忙看看串口通信用到了mscomm控件,我设置其对应的主机端口处于打开状态,循环检测串口是否有事件发生,有则进行事件处理; 现在收发数据一切正常,但是一旦有数据到达串口,以后我的主机程序就变成了好像死循环的状态,程序的其他模块没法正常工作,请问这种情况怎么处理,我的串口检测及设置程序如下:
-------------------------------------------------------------------------------------
Private Sub Form_Load()MSComm1.CommPort = 1 '选用com1串行口MSComm1.Settings = "2400,n,8,1"  '波特率9600，无奇偶校验位，8位数据位1位停止位MSComm1.InputLen = 0 'input将读取接收缓冲区的全部内容MSComm1.InputMode = comInputModeBinary '设置接收为二进制形式MSComm1.InBufferSize = 256 '设置接收缓冲区的字节长度MSComm1.OutBufferSize = 256 '设置发送缓冲区的字节长度'MSComm1.PortOpen = True '打开通信口MSComm1.SThreshold = 1   '发送缓冲区空触发发送事件
  
MSComm1.RThreshold = 1   '每一个字符到接收缓冲区都触发接收事件MSComm1.InBufferCount = 0 '清除发送缓冲区数据MSComm1.OutBufferCount = 0 '清除接收缓冲区数据
 
 If Not MSComm1.PortOpen Then
         
        MSComm1.PortOpen = True
    
 End If
    
     End Sub
--------------------------------------------------------------------------------------Sub mscomm1_oncomm()
Select Case MSComm1.CommEvent '在此可插入处理各种不同错误或事件的代码
Case comEvReceive............. '在此是事件处理程序
---------------------------------------------------------------------------------------