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 SubPrivate Sub CMDSend_Click()
    If MSComm1.PortOpen = True Then
        MSComm1.Output = TSend.Text
        MsgBox "ccccccc first"
    Else
        MsgBox "please connect first"
    End If
End SubPrivate Sub Connect_Click()
    If MSComm1.PortOpen = True Then
        MSComm1.PortOpen = False
        MsgBox "FALL"
    Else
        MSComm1.PortOpen = True
    End If
End SubPrivate Sub Form_Load()
    MSComm1.CommPort = 7
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.InBufferCount = 0
    MSComm1.RThreshold = 1
    MSComm1.SThreshold = 1
End SubPrivate 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