Torna al Thread
Public Sub COM1_DataReceived(ByVal sender as Object, ByVal e as System.IO.Ports.SerialDataReceivedEventArgs)
Dim barcode As String = ""
Dim ch As integer = 0
ch = COM1.ReadChar()
While (ch <> 13) And (COM1.BytesToRead>0)
barcode += Chr(ch)
End While
Form2.Show()
End Sub