'打开串口函数，初始化
Private Sub Command1_Click()
= 1        '设置串口号com1
MSComm1.PortOpen = True     '打开串口
MSComm1.InputMode = comInputModeText '字符输入方式
MSComm1.InputLen = 0  'MSComm控件读取输入缓冲区中全部的内容
Shape1.FillColor = RGB(0, 255, 0) '串口打开提示灯为绿色
Shape2.FillColor = RGB(255, 0, 0)
End Sub
'发送数据
Private Sub Command2_Click()
MSComm1.Output = Text1.Text '将数据送到输出缓冲区
End Sub
'接受数据
Private Sub Command3_Click()
Text2.Text = MSComm1.Input '读出缓冲区数据
End Sub
'关闭串口函数
Private Sub Command4_Click()
MSComm1.PortOpen = False  '关串口
Shape2.FillColor = RGB(0, 255, 0) '提示灯
Shape1.FillColor = RGB(255, 0, 0)
End Sub
'初始化提示灯为红
Private Sub Form_Load()
Shape1.FillColor = RGB(255, 0, 0)
Shape2.FillColor = RGB(255, 0, 0)
End Sub
//多多挑毛病，找缺陷。

期待有价值的回复

恩，波特率在空间属性了设置了，就是您给我指出的。
MSComm1.RThreshold=1 '启动oncomm事件，提高运行效率
倒没有研究过，不知怎么提高的效率。
期待您的回复，谢谢。

谢谢您的批评，确实就是基础。

我想价值还是有一些的。