Dim lst As New ListBox()
        Dim port As New IO.Ports.SerialPort("COM1")
        Dim ba() As Byte = _
            System.Text.Encoding.Default.GetBytes(TextBox1.text)
        port.Open()
        port.BaseStream.Write(ba, 0, ba.Length)
        port.BaseStream.Flush()
        port.Close()
        port.Dispose()
        For Each b As Byte In ba
            lst.Items.Add(b.ToString)
        Next
        Me.Controls.Add(lst)