'Sends a bitmap.
Public Sub WriteBitmap (Key As String, Value As Bitmap)
Dim name(1) As String
Dim raf As RandomAccessFile = sharedWrite(Key, name)
raf.WriteByte(TYPE_BITMAP, raf.CurrentPosition)
sharedWriteComplete(raf, name(0))
Dim secondPart As String = "~" & name(0)
Dim out As OutputStream = File.OpenOutput(TempFolder, secondPart, False)
Value.WriteToStream(out, 100, "jpeg")
out.Close
astream.WriteStream(File.OpenInput(TempFolder, secondPart), _
File.Size(TempFolder, secondPart))
End Sub