Sub TakePicture
Wait For(cam.FocusAndTakePicture(MyTaskIndex)) Complete (Data() As Byte)
cam.DataToFile(Data, File.DirInternal, "Chess.jpg")
cam.Stop 'must be reopened before another picture will be taken
'now load th epicture back
dstIV.Initialize("")
dstIV.Gravity=Gravity.FILL
Activity.AddView(dstIV, 0,100dip,100%X, 100%X*480/640 )
dstIV.Bitmap = LoadBitmapResize(File.DirInternal,"Chess.jpg",dstIV.Width,dstIV.Height,False)
dstIV.Invalidate
End Sub