求助!VB做的串口通信测试不能用....

我是新手,用VB做了一个简单的COM口通信测试程序,哪位高手帮我看看怎么不能成功发送接收.

是在一台只有一个COM口的电脑上将2.3脚短接的方法试的,就是不行?也不知为什么.

程序如下:

Private Sub Form_Load()
  MSComm1.CommPort = 1                 '设置通信端口号为COM1
  MSComm1.Settings = "9600,n,8,1"      '设置串口参数
  MSComm1.InputMode = 0                '接收文本型数据
  MSComm1.PortOpen = True              '打开通信端口
End Sub
Private Sub Cmdsend_Click()
  MSComm1.Output = Trim(Textsend.Text)       '把字符通过串口发送出去
End Sub
Private Sub CmdReceive_Click()
  Dim buf As String
  buf = Trim(MSComm1.Input)
  TextReceive.Text = buf
End Sub
Private Sub Cmdquit_Click()
  If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
  End                                 '关闭通信端口,停止程序运行
End Sub