Sub astream_NewData(Buffer() As Byte)
Dim In As InputStream
In.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
Dim bmp As Bitmap
Try
bmp.Initialize2(In)
In.Close
Dim r As Rect
r.Initialize(0, 0, Panel1.Width, Panel1.Height)
cvs.DrawBitmap(bmp, Null, r)
Panel1.Invalidate
Catch
End Try
End Sub