Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
buff.Setposition(buff.PositionslistGet(Value))'set the position in the buffer
'----------------------------------
Dim i As Int
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
Log("remaining bytes after copyPixelsToBitmap"&buff.remaining)
End Sub