Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '载入窗体初始化 GetSerialPortNames() '将搜到的串口在下拉菜单中显示出来 AxMSComm1.InBufferSize = 1024 '接收缓冲区大小，此项无法在串口打开时进行设置 AxMSComm1.OutBufferSize = 1024 '发送缓冲区大小 ComboBox2.Text