VB串口通信出现实时错误8020

[春哥的故事]

本人VB新手，最近用USB转RS232用VB6.0编写出现了8020的问题，操作系统是WIN7 64位。
用串口调试助手测试是没有问题的，可以发送接受数据，驱动说明没有问题。
程序是从CSDN论坛上下载的（VB串口通信程序（VB程序））。请问各位大神有什么办法解决吗？下面附上代码和一些串口调试助手，和端口截图。

代码：


Private Sub CMDRe_Click()
TRe.Text = TRe.Text & vbCrLf & CStr(MSComm1.Input)
MsgBox "2222 first"
End Sub

Private Sub CMDSend_Click()
If MSComm1.PortOpen = True Then
MSComm1.Output = TSend.Text
MsgBox "ccccccc first"
Else
MsgBox "please connect first"
End If
End Sub

Private Sub Connect_Click()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
MsgBox "FALL"
Else
MSComm1.PortOpen = True
End If
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 7
MSComm1.Settings = "9600,n,8,1"
MSComm1.InBufferCount = 0
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
TRe.Text = TRe.Text & MSComm1.Input & vbCrLf
End Select
End Sub
程序下载地址：http://download.csdn.net/detail/huphup/1195874

[「已注销」]

建议你使用VB.NET serialport ，VB6+MSCOMM 用在WIN7 64位，可能不怎么灵光

[王二.麻子]

VB6+MSCOMM 用在WIN7 32也经常比灵光的 好像我的串口连接了6,8脚为高就经常不稳定，出错，就找不到串口了。串口精灵也一样会出错

[春哥的故事]

引用 1 楼 wangwei244157887 的回复:

建议你使用VB.NET serialport ，VB6+MSCOMM 用在WIN7 64位，可能不怎么灵光

恩 我用SP了。。 但是我还是想知道为什么会出现这个问题额

[春哥的故事]

引用 2 楼 spt_petrolor 的回复:

VB6+MSCOMM 用在WIN7 32也经常比灵光的 好像我的串口连接了6,8脚为高就经常不稳定，出错，就找不到串口了。串口精灵也一样会出错

我的串口就只将2,3脚短接而已。。