Dim Com1 As New IO.Ports.SerialPort("COM1", 9200, IO.Ports.Parity.None, _
          7, IO.Ports.StopBits.One)
        Com1.Open()
        Dim b() As Byte = {100, 200, 122, 111}
        Com1.BaseStream.Write(b, 0, b.Length)