关于VB串口的有关问题

关于VB串口的问题
是这样的，我想用pc机和下位单片机进行通讯。刚学vb不久，是这样写的：
[code=VB][/code]Private Sub com_OnComm()
  Select Case com.CommEvent
  Case comEvReceive
  text2 = com.Input
  com.InBufferCount = 0
  End Select
End Sub

Private Sub Command1_Click()
  com.OutBufferCount = 0
  com.Output = text1.Text
End Sub

Private Sub Command2_Click()
  End
End Sub

Private Sub Form_Load()
  com.CommPort = 1
  com.Settings = "19200,n,8,1"
  com.PortOpen = True
End Sub

  然后我将电脑的串口第二针和第三针端接，按照常理这样的话我每次发送一个数据在text2的text中久应该能看到刚才发的数据了，但是结果没反应。
  下来我用将两台电脑用串口线连接，之间的跳线我都已经确保无误，机器1上用的是刚才的vb程序，机器二上用的是网上down的串口调试助手，结果是：我用我的vb程序发送一个数据令一台机器的串口调试助手能正确无误的受到，而我用令一台机器的串口调试助手发数据的时候用vb的机器1居然毫无反应！！！！
  请各位大哥大姐帮帮小弟！！小弟我是初学！！！

[解决办法]

VB code

Private Sub Form_Load()     com.CommPort = 1     com.Settings = "19200,n,8,1"     com.RThreshold = 1    com.PortOpen = True End Sub
[解决办法]
http://topic.csdn.net/t/20030608/15/1890711.html
http://topic.csdn.net/t/20020429/22/690204.html