vb中mscomm控件的经典实例，有详细步骤，适用于学习vb中串口通信的学者！！！

计算机拨号  
在一些实际应用中经常需要使用计算机拨号。下面这个例子利用MSComm控件操作Modem进行拨号，实现串口通信。  
实现步骤：  
1.建窗体  
添加一个MSComm控件，用来建立与串口的连接；  
添加一个Text控件，Name属性为Txttel，用来输入电话号码；  
添加3个CommandButton控件，Name属性分别为DialButton、CancellButton、QuitButton，分别用来实现拨号、中止拨号、中止程序；  
添加一个Label控件，用来显示所有与拨号有关的信息。窗体见图1。  
2．设置MSComm控件属性  
InBufferSize=1024；  ’ InBufferSize 是指整个接收缓冲区的大小。缺省值是 1024 字节。 
Inputlen=0；        ’ InputLen 属性的缺省值是 0。设置 InputLen 为 0 时，使用 Input 将使 MSComm 控件读取接收缓冲区中全部的内容。 
InputMode=0；       ’0---（缺省）数据通过 Input 属性以文本形式取回。 
                      1--数据通过 Input 属性以二进制形式取回 
Rthreshold=2；      ’ 当接收字符后，若 Rthreshold 属性设置为 0（缺省值）则不产生 OnComm 事件。 
RTSEnable=True；    ’ 当 RTSEnable 设置为 True，端口打开时，Request To Send 线设置为高电平，端口关闭时，设置为低电平。 
Settings=“9600,N,8,1”；  
Sthreshold=0。   ’ 若设置 Sthreshold 属性为 0（缺省值），数据传输事件不会产生 OnComm 事件。若设置 Sthreshold 属性为 1，当传输缓冲区完全空时，MSComm 控件产生 OnComm 事件。 
因为每一台计算机的串口使用状态都不会一样。为使程序具有通用性，在窗体的Load方法中首先进行串口测试，找到第一个可用串口后再进行设置。  
3．程序功能   
程序根据输入的电话号码进行拨号，Modem正常拨号后，提示用户摘机，准备通话。   
4．主要方法与事件代码  
'设置可用串口  
Private Sub Form_Load()  
On Error GoTo error_open  
For i = 1 To 4  
MSComm1.CommPort = 1  
MSComm1.PortOpen = True  
'设置可用的第一个串口  
On Error GoTo 0  
Exit Sub