Ports.Add("COM2")
Ports("COM2").Open()

Ports("COM2").Write("foxtable")

接收字符串

将DataReceived事件代码设置为：

Dim s As String
s = e.Port.ReadExisting()

你也可以在任何地方使用下面的代码接收串口数据：

Dim s As String
s = Ports("COM2").ReadExisting()