Sub astreamO_NewObject(Key As String, Value As Object)
Select Key
Case "image"
Dim bmp As Bitmap = Value
'------------------------------------------------------------
File.Copy ???
'------------------------------------------------------------
Dim r As Rect
r.Initialize(0, 0, pnlframe.Width, pnlframe.Height)
imgbackframe.SetBackgroundImage(bmp)
pnlframe.Invalidate
Case "file"
Dim fileName As String = Value
Log("Received file. File size: " & File.Size(astreamO.TempFolder, fileName))
End Select
End Sub