Sub Timer1_Tick
Dim BC As ByteConverter
If InputStream1.BytesAvailable > 0 Then
Timer1.Enabled = False
Dim buffer(8192) As Byte
' 'raf.Initialize3(buffer, True)
Try
InputStream1.ReadBytes(buffer, 0, buffer.Length)
Catch
Log(LastException)
End Try
' Dim s As String=BC.StringFromBytes(buffer,"UTF-8")
' lblArt1.Text=s
'Timer1.Enabled = True
End If
End Sub