VB 程序提示8020错误，求高人指点

Form_Load()中先初始化控件参数

With MSComm1
.Settings="9600,N,8,1"
.InputMode=1 '设置接受数据的类型是二进制类型数据
.InputLen=8 '一次性从接收缓冲区中读取所有数据(8个字节为一组)
.InBufferCount=0 '清空接收缓冲区
.OutBufferCount=0 '清空发送缓冲区
.SThreshold=0 '一旦发送数据就触发OnComm()事件来检测是否返回数据
.RThreshold=1 '接收到1个字节数据就立即触发OnComm()事件
.CommPort=1 '使用第一个串口
.PortOpen=True '打开串口
EndWith

然后在MSComm1_OnComm事件中使用

Private Sub MSComm1_OnComm()
Dim Buffer As String
Buffer = MSComm1.Input
End Sub
'退出时请关闭端口
'Buffer有可能一次不能接受全数据，请使用全局变量存放，再用vbcr区分接受结束
'希望对你有所帮助

　　而且你可以在后面加上“-c"我要关机啦！"”，这样这句话会显示在对话框中，当然文字你可以随意写，但要注意不能然后选中“禁用错误报告”，下面的“但在发生严重错误时通知我”可以选中。关闭“internet时间同步”功能“interne