请教VB高手一个串口的问题

我用串口线把我电脑上的串口1和2连接起来，串口1向2发数据，可怎么也发不出去，换了几根串口线，折腾了一天，还是不行，请高手帮我看看我的程序。
Private Sub cmdsent_Click()
Dim strsent As String
strsent = Trim(txtsent.Text)
If (strsent = "") Then
MsgBox "发送数据不能为空!", vbOKOnly, "提示"
txtsent.SetFocus
Else
comsent.Output = strsent
End If
End Sub

Private Sub comreceive_OnComm()
Select Case comreceive.CommEvent
Case comEvReceive
comreceive.InputMode = comInputModeText 'ASCII接收
txtreceive.Text = comreceive.Input
MsgBox "收到！"
End Select
End Sub

Private Sub Form_Load()
txtreceive = ""
comsent.CommPort = 1
comsent.PortOpen = True
comreceive.CommPort = 2
comreceive.PortOpen = True
comreceive.RThreshold = 1
'其余属性均默认设置
End Sub

一个VB串口通信程序的问题。 各位高手请教一个VB的问题； 请教VB高手一个界面的问题 请教VB高手一个.dat的问题 请教VB高手一个unload的问题 VB 串口的问题 请教VB高手一个问题 急问一个VB 串口程序 接收数据的问题 vb的问题 请教高手 高手帮忙 ！！VB串口通讯问题！！！