下面的代码我放到画面的按钮点击事件里面正常，放到模块里面调用，老是出现不支持的模式，停止在红的代码处，请指教 !!!DoEvents是什么意思？这是我抄的一段，read_D_i是function名字。
=================================================

Dim btReceive As Variant   
   
      Do Until mscomm.InBufferCount = 6   '??直到接受缓冲区字符为6个   
   
      DoEvents    '什么意思？
   
     Loop   '循环
     
       mscomm.InputLen = 6    '控件接受长度为6
      btReceive = mscomm.Input     '读入
       If btReceive(0) = &H1 Then   '如果回传的代码等于正确的数据
      
        read_D_i = btReceive(3) '回传数据第0位是设备地址；1位是功能码，
                                           '2位是数据位计数，从第3个开始是数据
     
      
      End If

这段程序的上边是发送到MSCOMM口数据，然后读取饭回来的数据，判断是否是6个，为啥程序老停在这里？我的对方机器没有问题，用按钮时间都能读回来正确的数据，放到模块里，然后用定时器调用就老是出错，请指教了！