下面的代码我放到画面的按钮点击事件里面正常，放到模块里面调用，老是出现不支持的模式，停止在红的代码处，请指教 !!!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

DOEVENT
事件，在循环过程中可以执行其他事件

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

因为你放到模块里后,它就不认得"mscomm"是谁了,嘿嘿.象这样一半的代码......唉....
通用模块中的对象和变量都应当事先声明
解决方法:
1)MSCOMM原来是在哪个窗体中,在模块代码中,mscomm的前面加上 窗体名. 如:form1.
类似于下面:
Dim btReceive As Variant   
   
      Do Until Form1.mscomm.InBufferCount = 6   '??直到接受缓冲区字符为6个   
   
      DoEvents    '什么意思？
   
     Loop   '循环
     
       Form1.mscomm.InputLen = 6    '控件接受长度为6
      btReceive = Form1.mscomm.Input     '读入
       If btReceive(0) = &H1 Then   '如果回传的代码等于正确的数据
      
        read_D_i = btReceive(3) '回传数据第0位是设备地址；1位是功能码，
                                           '2位是数据位计数，从第3个开始是数据


2)声明MSCOMM