ction HiByte(a As Integer)
              Dim b As Integer
              b = a And &HFF00
              b = b / 256
              If b < 0 Then b = b + 256
              HiByte = b
           End Function
            
           Public Function LowByte(a As Integer)
              Dim b As Integer
              b = a And &HFF
              LowByte = b
           End Function
3.4如何在通信过程中进行延时
在某些通信过程中，常常需要在发送完一组数据后进行一段延时，以等待对方处理上组数据，以下是延时函数代码。
          Public Sub Delay(PauseTime As Single)
              Dim Start
                           Start = Timer
              '设定开始时间
Do While Timer < Start + PauseTime
DoEvents
              Loop
          End Sub
4.结束语
随着计算机应用领域的不断扩展，计算机之间的远程通信用得也越来越广泛。作为RAD开发工具代表的Visual Basic同样提供了一系列标准通信命令的接口，它允许建立串口连接，可以连接到其他通信设备（如Modem）、还可以发送命令、进行数据交换以及监视和响应在通信过程中可能发生的各种错误和事件等，可以满足通常情况下的串口通信需求。如果在实际应用过程中，能够很好的掌握MSComm控件的特性，灵活变通，就可以达到安全、稳定、高效通信的目的。

 

 

【参考文献】
    1、周轶峰，杨建新，《Visual Basic 6.0 实用编程技术》，
       中国水利水电出版社，1999
    2、王建新，陈一飞等译，《Visual Basic 6.0 开发人员指南》，机械工业出版社，1999