Sub Astreams1_NewData (Buffer() As Byte)
' You must check for DeviceInfo or analyze Buffer data to know what is connected to the USB
' The order of the USB could change as you plug them and could change when changing the hub port they are connected to
Log("NewData:")
Log(BytesToString(Buffer, 0, Buffer.Length, "UTF8"))
Dim in_read As String
in_read = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
'in_read.Replace (Chr(13),"")
If in_read=Chr(10) Then
' raggiunta fine stringa
all_string=""
Else
' compongo la stringa
all_string=all_string & in_read
lbl_log_seriale.Text = all_string
Return
End If