Public Sub Connect_Adam()
  MSComm2.RThreshold = 1          '当接收缓冲区中的字符数为RThreshold时,触发OnComm事件;
  MSComm2.SThreshold = 1          '在OnComm事件产生之前在传输缓冲区中的最小字符数;
  MSComm2.DTREnable = True        '使Data Terminal Ready线有效;
  MSComm2.EOFEnable = True        '当找到EOF字符时激活OnComm事件;
  MSComm2.CommPort = 1            ' 使用 COM1。
  MSComm2.Settings = "9600,n,8,1" ' 9600波特,偶校验,8位数据,一个停止位。
  MSComm2.InputLen = 0            ' 当输入占用时, 告诉控件读入整个缓冲区。
  MSComm2.PortOpen = True         ' 打开端口。
End Sub 我用的是string类型