Ports.Add("COM2")Ports("COM2").Open()
发送字节
Dim Val() As Byte = New Byte() {49,50,51,52}Ports("COM2").Write(Val, 0, Val.Length)