Sub DisplayImg(Data() As Byte)
Private Bmp As Bitmap
Private Out As OutputStream
Bmp = LoadbitmapSample2(File.DirRootExternal,"1.jpg",imgVw.Width,imgVw.Height,True)
imgVw.Bitmap = Bmp
Out = File.OpenOutput(File.DirRootExternal,"1.jpg",False)
Bmp.WriteToStream(Out,100,"JPEG")
End Sub