msg = BytesToString(Buffer, 0, Buffer.Length, "ASCII")
lvLog.AddSingleLine (msg)
Log(msg)
Dim aux() As Byte
aux = b64.DecodeBtoB(Buffer, 0, Buffer.Length)
lblMsg.Text = aux.Length
Log ("Length=" & aux.Length & " Bytes")
Dim In As InputStream
In.InitializeFromBytesArray(aux, 0, aux.Length)
Dim Bitmap1 As Bitmap
Bitmap1.Initialize2(In)
In.Close
ImageView1.SetBackgroundImage(Bitmap1)