Dim buff As keylabDirectBuffer
Dim rr(640*480*4)As Byte
buff.get2(rr)
For i = 0 To 640*480*4-1 Step 4
rr(i)=255
Next
buff.putByteArray(rr)
buff.rewind
'----------------------------------
ImageView1.Bitmap=buff.copyPixelsToBitmap(bm.Width,bm.Height,buff.Config_ARGB_8888)
ImageView1.Invalidate