试试改成
Ports.Add("COM1")Ports("COM1").closePorts("COM1").Open()Dim s As Strings = Ports("COM1").ReadExisting()output.Show(s)